Viết chương trình pascal :tính kết quả c của phép chia lấy phần nguyên và phép chia lấy phần dư của hai số nguyên a và b. Giúp tuiii nha.
1 câu trả lời
uses crt;
var a,b,c,d:integer;
begin
clrscr;
write('nhap so bi chia:'); readln(a);
repeat;
write('nhap so chia:'); readln(b);
if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until b<>0;
c:=a div b;
d:=a mod b;
write('thuong cua phep chia ',a,' cho ',b,' la: ',c);
write('so du cua phep chia ',a,' cho ',b,' la: ',d);
readln;
end.