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à kết quả d của phép chia lấy phần dư của 2 số nguyên a và b.

Các bạn giải giúp mk...Có thể xong ngay tối nay được không...!

THANKS!

Answer 1

Program tinhtoan;

Var a,b,c,d : integer;

Begin

Write(‘Nhap hai so a,b :’);

Readln (a,b);

c:=a div b;

d:=a mod b;

Writeln(‘ Phan nguyen cua a va b la :’,c);

Writeln(‘ Phan du cua a va b la :’,d);

Readln;

End.

Answer 2

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;

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',c);

writeln('so du cua phep chia ',a,' cho ',b,' la: ',d);

readln;

end.