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

Hồ Thị Thủy Tiên
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
Nguyễn Lê Phước Thịnh
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ự
Hồ Thị Thủy Tiên
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Trần Lan Anh
Xem chi tiết
Ha Ha
Xem chi tiết
Yến Ngọc
Xem chi tiết
Kiều Oanh
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Nguyễn Triệu Nhật Khánh
Xem chi tiết
Vuducson
Xem chi tiết