Question

viết chương trình để tính kết quả c của phép chia lấy phần nguyên và d của phép chia lấy phần dư của 2 số nguyên a,b

Answer 1

uses crt;

var a,b,d,c:integer;

begin

clrscr;

write('nhap so bi chia:'); readln(a);

write('nhap so chia:'); readln(b);

c:=a div b;

d:=a mod b;

writeln('phep chia lay phan nguyen cua ',a,' chia ',b,' la: ',c);

writeln('phep chia lay phan du cua ',a,' chia ',b,' la: ',d);

readln;

end.