Lập trình đơn giản

PH

em hãy viết chương trình nhập (bằng Free Pascal) vào 1 số nguyên dương n(10--<n<100) và đưa ra màn hình là chữ số hàng chục và chữ số hàng đơn vị

TD
21 tháng 2 2018 lúc 22:10

program bai1;

var du,n:longint;

begin

repeat

write('n= ');readln(n);

until (n>10) and (n<100);

while n<>0 do

begin

du:=n mod 10;

n:=n div10;

end;

write('Chu so hang chuc la ',n,' ,chu so hang don vi la ',du);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
HQ
Xem chi tiết
H24
Xem chi tiết
QM
Xem chi tiết
H24
Xem chi tiết
DL
Xem chi tiết
H24
Xem chi tiết