Bài 3. Chương trình máy tính và dữ liệu

•¢ɦẹρ➻¢ɦẹρ
8 tháng 1 2022 lúc 8:29

16

Bình luận (0)
Diệu Võ Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 9:09

X=18 div 18=1

Bình luận (0)
Diệu Võ Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 9:08

Chọn A

Bình luận (0)
hồng trương
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:14

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<max(a,b);

return 0;

}

Bình luận (0)
Kiều Vũ Linh
13 tháng 1 2022 lúc 11:28

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.

Bình luận (0)
Lưu Thị Ngọc Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 1 2022 lúc 22:37

#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;

}

Bình luận (0)
Trân Bảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2022 lúc 18:37

uses crt;

var c,d,e:real;

begin

clrscr;

readln(c,d,e);

writeln((c+d+e)/3:4:2);

readln;

end.

Bình luận (0)
Kiều Vũ Linh
24 tháng 2 2022 lúc 7:21

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.

Bình luận (0)
Dung Nguyễn
Xem chi tiết
ILoveMath
28 tháng 2 2022 lúc 22:14

 

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.

 

Bình luận (2)
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 22:32

#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;

}

Bình luận (0)
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Bao tom12
5 tháng 5 2022 lúc 11:48

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.

Bình luận (3)
Bao tom12
5 tháng 5 2022 lúc 11:52

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.

Bình luận (5)
Kiều Vũ Linh
5 tháng 5 2022 lúc 13:12

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.

Bình luận (0)
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 12:57

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.

Bình luận (0)
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 12:56

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.

Bình luận (1)