Question

Pascal / Viết Chương trình nhập vào và đưa ra màn hình cách đọc các chữ số tương ứng với số đó

VD: Nhập vào số "12345" ;Xuất ra màn hình "một hai ba bốn năm"

mong mn chịu khó giúp :(

Answer 1

Program HOC24;

var i: byte;

s: string;

begin

readln(s);

for i:=1 to length(s) do

begin

if s[i]='1' then write('mot ');

if s[i]='2' then write('hai ');

if s[i]='3' then write('ba ');

if s[i]='4' then write('bon ');

if s[i]='5' then write('nam ');

if s[i]='6' then write('sau ');

if s[i]='7' then write('bay ');

if s[i]='8' then write('tam ');

if s[i]='9' then write('chin ');

if s[i]='0' then write('khong ');

readln;

end.