Nhập vào 2 số nguyên, trong đó số nguyên thứ nhất có 5 chữ số, số nguyên thứ hai có 1 chữ số. Tính và xuất ra màn hình phần nguyên, phần dư của phép chia số thứ nhất chia số thứ 2 hai.

-.-

programct;

uses crt;

var a,c,d:longint;

b:byte;

e:real;

begin

clrscr;

writeln('nhap a,b: ');readln(a,b);

c:=a div b;

d:=a mod b;

e:=c/d;

writeln(a,'div',b,'=', c);

writeln(a,'mod',b,'=',d);

writeln(e);

readln;

end.

-.-

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap so nguyen thu nhat co 5 chu so:');

Readln(a);

Write('Nhap so nguyen thu hai co 1 chu so:');

Readln(b);

Writeln('Phan nguyen cua phep chia:',a div b);

Writeln('Phan du cua phep chia:',a mod b);

Readln

End.