Tin học pascal cơ bản

[Trâm Nguyễn Thị Ngọc]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập một số nhỏ hơn 1000. Trình bày dòng chữ cho biết giá trị con số đó

 

[Trâm Nguyễn Thị Ngọc]

help me

 

[Code11]

tham khảo code này:
uses crt;
var chu:string;
n,i: longint;
begin
clrscr;
write('nhap so can chuyen thanh chu:so=');readln(n);
chu:=' ';
{dung de quy de tach lay so}
while n<>0 do
begin
i:=n mod 10;
case i of {dung lenh lua chon de xet cac kha nang}
1:chu:=' mot '+chu;
2:chu:=' hai '+chu;
3:chu:=' ba '+chu;
4:chu:=' bon '+chu;
5:chu:=' nam '+chu;
6:chu:=' sau '+chu;
7:chu:=' bay '+chu;
8:chu:=' tam '+chu;
9:chu:=' chin '+chu;
end;
n:=n div 10;
end;
writeln('day viet thanh chu la:');
for i:=1 to length(chu) do
write(chu);
readln;
end.
nguồn:nhặt