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

pham huu huy

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ị

Trương Quang Dũng
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ự
ytkc
Xem chi tiết
ytkc
Xem chi tiết
ytkc
Xem chi tiết
Hưng Quốc
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
ytkc
Xem chi tiết
duy lê
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết