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.