вводится число от 1 до 1000

+ 0 -

Makcivetta

26 мая 2013 г., 8:01:06 (10 лет назад)

вот тебе программка на 5 знаков,делал сам,думаю в нете ее нет
var a,a1,a2,a3,a4,a5:integer;
begin
writeln('введите число');
readln (a);
a1:=a div 10000 ;
a2:=a mod 10000;
a2:=a2 div 1000;
a3:= a mod 1000;
a3:= a3 div 100 ;
a4:= a mod 100;
a4:= a4 div 10;
a5:= a mod 10 ;
if a2>0 then
case a1 of
1 : write ('десять ');
2 : write ('двадцать ');
3 : write ('тридцать ');
4 : write ('сорок ');
5 : write ('пятьдесят ');
6 : write ('шестьдесят ');
7 : write ('семьдесят ');
8 : write ('восемьдесят ');
9 : write ('девяносто ');
end;

if a2=0 then
case a1 of
1 : write ('десять тысяч ');
2 : write ('двадцать тысяч ');
3 : write ('тридцать тысяч');
4 : write ('сорок тысяч ');
5 : write ('пятьдесят тысяч ');
6 : write ('шестьдесят тысяч ');
7 : write ('семьдесят тысяч ');
8 : write ('восемьдесят тысяч ');
9 : write ('девяносто тысяч ');
end;
if a2>0 then
case a2 of
1 : write (' одна тысяча ');
2 : write (' две тысячи ');
3 : write (' три тысячи ');
4 : write (' четыре тысячи ');
5 : write (' пять тысяч ');
6 : write (' шесть тысяч ');
7 : write (' семь тысяч ');
8 : write (' восемь тысяч ');
9 : write (' девять тысяч ');
end;
case a3 of
1 : write (' сто ');
2 : write (' двести ');
3 : write (' триста ');
4 : write (' четыреста ');
5 : write (' пятьсот ');
6 : write (' шестьсот ');
7 : write (' семьсот ');
8 : write (' восемьсот ');
9 : write (' девятьсот ');
end;

if a4<>1 then
case a4 of
1 : write (' десять ');
2 : write (' двадцать ');
3 : write (' тридцать ');
4 : write (' сорок ');
5 : write (' пятьдесят ');
6 : write (' шестьдесят ');
7 : write (' семьдесят ');
8 : write (' восемьдесят ');
9 : write (' девяносто ');
end;
if a4=1 then
case a5 of
1 : write (' одинадцать');
2 : write (' двенадцать');
3 : write (' тринадцать');
4 : write (' четырнадцать');
5 : write (' пятьнадцать');
6 : write (' шестьнадцать');
7 : write (' семьнадцать');
8 : write (' восемьнадцать');
9 : write (' девятьнадцать');
end;
if a4<>1 then
case a5 of
1 : write (' один ');
2 : write (' два ');
3 : write (' три ');
4 : write (' четыре ');
5 : write (' пять ');
6 : write (' шест ');
7 : write (' семь');
8 : write (' восемь ');
9 : write (' девять ');
end;
end.