X=15+6^2 mod2
Bài 3. Chương trình máy tính và dữ liệu
Tính giá trị của biểu thức X=18 div((2+3)^2-7)
Điều kiện sau câu lệnh điều kiện trả về kết quả a đúng và sai B đúng C sai D kết quả phép tính
viết chương trình tìm số lớn nhất trong hai sô nguyên a,b
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<max(a,b);
return 0;
}
Đúng 0
Bình luận (0)
Var a,b:integer;
Begin
Write('Nhap a = ');readln(a);
Write('Nhap b = ');readln(b);
If a > b then write('so lon nhat la ',a)
Else if b > a then write('so lon nhat la ',b)
Else write('khong co so lon nhat');
Readln;
End.
Đúng 0
Bình luận (0)
Hãy so sánh số nguyên nhập từ bàn phím lớn hơn và nhỏ hơn bằng nhau
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a>b) cout<<"a lon hon b";
else if (a<b) cout<<"a nho hon b";
else cout<<"a bang b";
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình tính trung bình cộng của 3 số c,d và e . Biết 3 số này là số thực
uses crt;
var c,d,e:real;
begin
clrscr;
readln(c,d,e);
writeln((c+d+e)/3:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Var a,b,c,tb:real;
Begin
Write('Nhap a = ');readln(a);
Write('Nhap b = ');readln(b);
Write('Nhap c = ');readln(c);
tb:=(a+b+c)/3;
Write('Trung binh cong la ',tb:10:2);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng chẵn (lẻ) n số tự nhiên nhập từ bàn phím (dùng vòng lặp) Giúp vs ạ em cần gấp
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
Đúng 1
Bình luận (2)
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1+=x;
else t2+=x;
}
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
a) In ra màn hình các số chẵn có trong mảng
program ct; uses crt; var i,n,s:integer; A:array[1..100] of integer; begin clrscr; write(‘nhap n:=’);readln(n); for i:=1 to n do begin write(‘nhap mang A[‘,i,’]:=’);readln(A[i]); end; for i:=1 to n do if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]); s:=0; for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i]; writeln(‘tong cac so le la:’,s); readln end.
Đúng 0
Bình luận (3)
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end:
for i:=1 to n do
if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]);
s:=0;
for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i];
writeln(‘tong cac so le la:’,s);
readln
end.
Đúng 1
Bình luận (5)
Var a:array[1..200] of integer;
i,n,s:integer;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
write('tong cac so chan la ',s);
readln;
end.
Đúng 0
Bình luận (0)
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
b) In ra màn hình tổng của các số chẵn có trong mảng
Var a:array[1..200] of integer;
i,n,s:integer;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
write('Tong cac so chan la ',s);
readln;
end.
Đúng 0
Bình luận (0)
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
e) In ra màn hình các số chia hết cho 3
Var a:array[1..200] of integer;
i,n:integer;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
writeln('Cac so chia het cho 3 la ');
for i:=1 to n do
if a[i] mod 3 = 0 then write(a[i],' ');
readln;
end.
Đúng 1
Bình luận (1)