Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bé thư

Viết chương trình nhập vào 2 số nguyên, in lên màn hình kết quả phép chia của số lớn cho số bé

Nguyễn Lê Phước Thịnh
25 tháng 3 2020 lúc 19:25

uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a=b then writeln('vui long nhap a khac b');
until a<>b;
{--------------------------xu-ly-----------------------------}
if a>b then writeln('phep chia cua ',a,' cho ',b,' la: ',a/b:4:2)
else writeln('phep chia cua ',b,' cho ',a,' la: ',b/a:4:2);
readln;
end.

Khách vãng lai đã xóa
Phan Tiến Đạt
26 tháng 3 2020 lúc 8:04

uses crt;

var a,b:integer;

begin

clrscr;

repeat

write('Phap so a: ');readln(a);

write('Nhap so b: ');readln(b);

if a = b then

begin

write('Nhap 2 so khac nhau');

delay(2000);

clrscr;

end;

until a <> b;

write('KQ cua phep chia so lon cho so be la: ');

if a > b then

write(a/b:0:2)

else if b > a then

write(b/a:0:2);

readln

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Finn
Xem chi tiết
Linh Da
Xem chi tiết
Trần Đức Hoàng
Xem chi tiết
ytkc
Xem chi tiết
Phan Tấn Tài
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
Phạm Tèo
Xem chi tiết
Tien Tien
Xem chi tiết