Bài tập số 5. Nhập 2 số nguyên a và b. Hãy in ra kết quả phần nguyên và phần dư của phép chia a cho b. (Div và mod)

2 câu trả lời

var a,b:longint;
begin
write('Nhap vao a = ');readln(a);
write('Nhap vao b = ');readln(b);
if b=0 then
  begin
     writeln('Khong thuc hien duoc');
     readln;
     exit;
  end;
writeln('Phep DIV = ',a div b);
writeln('Phep MOD = ',a mod b);
readln
end.

program bai_giai;
uses crt;
var a,b:longint;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    if b=0 then write('Thuc hien khong duoc')
    else
        begin
            writeln('Phan nguyen: ',a div b);
            writeln('Phan du: ',a mod b);
        end;
    readln;
end.

Câu hỏi trong lớp Xem thêm