Viết chương trình nhập vào 2 số nguyên a và b bất kì từ bàn phím. In ra màn hình kết quả c của phép chia div và kết quả d của phép chia mod của a, b ( c=a div b và d=a mod b).
Viết chương trình nhập vào 2 số nguyên a và b bất kì từ bàn phím. In ra màn hình kết quả c của phép chia div và kết quả d của phép chia mod của a, b ( c=a div b và d=a mod b).
program divmod;
uses crt;
var
a,b,c,d:Integer;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
c:=a div b;
d:=a mod b;
writeln(‘c=’,c);
write(‘d=’,d);
readln
end.