Пользователь отвечает на вопрос программы: «Сколько Вам лет» (0<x<112), после чего она выдает сообщение «Вам x лет». При этом стоит учесть, что для разных чисел используются разные склонения, например, «32 года», «99 лет» и т.п.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 |
program choice_4;
uses crt; var year: integer; begin clrscr; write(‘Сколько Вам лет? > ‘); readln(year); if (year>111) or (year<1) then write(‘Превышен лимит (111 лет)’) else if (year mod 10=1) and (year<>11) and (year<>111) then write(‘Вам ‘, year, ‘ год’) else if (year<5) xor ((year>21) and ((year mod 10=2) or (year mod 10=3) or (year mod 10=4))) then write(‘Вам ‘, year, ‘ года’) else write(‘Вам ‘, year, ‘ лет’); readkey; end. |