Bài 6: Phép toán, biểu thức, câu lệnh gán

HT
Viết chương trình nhập vào hai số nguyên dương Tìm trung bình cộng của chúng Tìm trong số đó có bao nhiêu số là bội số của số kia
NT
30 tháng 12 2020 lúc 11:45

uses crt;

var dem,n,m,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

write('Nhap m='); readln(m);

t:=m+n;

writeln('Trung binh cong cua chung la: ',t/2:4:2);

dem:=0;

if n mod m=0 then inc(dem);

if m mod n=0 then inc(dem);

writeln('Co ',dem,' so la boi so cua so kia');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
HT
Xem chi tiết
NT
Xem chi tiết
TA
Xem chi tiết
HH
Xem chi tiết
YN
Xem chi tiết
KO
Xem chi tiết
NT
Xem chi tiết
NK
Xem chi tiết
H24
Xem chi tiết