язык: pascal
ответ:
program case17;
var
n: integer;
begin
repeat
write('введите число: ');
readln(n);
until (n> 10)and(n< 40);
case n of
10: writeln('десять учебных ');
11: writeln('одиннадцать учебных ');
12: writeln('двенадцать учебных ');
13: writeln('тринадцать учебных ');
14: writeln('четырнадцать учебных ');
15: writeln('пятнадцать учебных ');
16: writeln('шестнадцать учебных ');
17: writeln('семнадцать учебных ');
18: writeln('восемнадцать учебных ');
19: writeln('девятнадцать учебных ');
20: writeln('двадцать учебных ');
21: writeln('двадцать одно учебное ');
22: writeln('двадцать два учебных ');
23: writeln('двадцать три учебных ');
24: writeln('двадцать четыре учебных ');
25: writeln('двадцать пять учебных ');
26: writeln('двадцать шесть учебных ');
27: writeln('двадцать семь учебных ');
28: writeln('двадцать восемь учебных ');
29: writeln('двадцать девять учебных ');
30: writeln('тридцать учебных ');
31: writeln('тридцать одно учебное ');
32: writeln('тридцать два учебных ');
33: writeln('тридцать три учебных ');
34: writeln('тридцать четыре учебных ');
35: writeln('тридцать пять учебных ');
36: writeln('тридцать шесть учебных ');
37: writeln('тридцать семь учебных ');
38: writeln('тридцать восемь учебных ');
39: writeln('тридцать девять учебных ');
40: writeln('сорок учебных ');
end;
end.
Популярные вопросы