giups ;In ra phần chục và đơn vị của một số nguyên n có 2 chữ số. Với n nhập vào từ bàn phím. ( div và mod)

2 câu trả lời

program p;

var n:integer;

begin

     readln(n);

     writeln(n div 10);

     writeln(n mod 10);

     readln();

end.

program baitap;
uses crt;
var n:longint;
begin
clrscr; 
readln(n);
writeln('Phan chuc = ',n div 10);
writeln('Phan don vi = ',n mod 10);
readln;
end.

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