Question

Cho 2 số nguyên a,b viết chương trình lấy a chia b lấy phần nguyên rồi gán cho c. Kết quả in ra màn hình.

Answer 1

program tom;

uses crt;

var a,b,c: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

c:=a div b;

write(c);

readln;

end.