Ответы на вопрос:
begin
var n : = readinteger('n=');
if n > = 1000 then print('одна тысяча')
else
begin
var d1 : = n mod 10;
var d2 : = n div 10 mod 10;
var d3 : = n div 100;
var s : = '';
case d3 of
1: s : = 'сто';
2: s : = 'двести';
3: s : = 'триста';
4: s : = 'четыреста';
5: s : = 'пятьсот';
6: s : = 'шестьсот';
7: s : = 'семьсот';
8: s : = 'восемьсот';
9: s : = 'девятьсот';
end;
if d2 = 1 then
begin
case d1 of
0: s += ' десять';
1: s += ' одиннадцать';
2: s += ' двенадцать';
3: s += ' тринадцать';
4: s += ' четырнадцать';
5: s += ' пятнадцать';
6: s += ' шестнадцать';
7: s += ' семнадцать';
8: s += ' восемнадцать';
9: s += ' девятнадцать';
end;
trimleft(s).println
end
else
begin
case d2 of
0: s += '';
2: s += ' двадцать';
3: s += ' тридцать';
4: s += ' сорок';
5: s += ' пятьдесят';
6: s += ' шестьдесят';
7: s += ' семьдесят';
8: s += ' восемьдесят';
9: s += ' девяносто';
end;
s : = trimleft(s);
case d1 of
1: s += ' один';
2: s += ' два';
3: s += ' три';
4: s += ' четыре';
5: s += ' пять';
6: s += ' шесть';
7: s += ' семь';
8: s += ' восемь';
9: s += ' девять';
end;
trimleft(s).println
end
end
end.
Популярно: Информатика
-
Settiko08.01.2021 08:59
-
янубтытруп19.07.2022 17:25
-
kozarmarjna1504.01.2023 02:57
-
masdud200107.04.2022 22:57
-
нимс03.11.2020 15:57
-
Zendydla28.12.2021 05:47
-
ketivolkowa02.12.2020 06:48
-
Mikhail55Rus01.04.2022 17:27
-
vovasherbak200330.09.2022 14:06
-
gera53518.08.2021 10:58