«

»

Pascal. Операторы ветвления. Задача 4

Пользователь отвечает на вопрос программы: «Сколько Вам лет» (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.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Вы можете использовать эти теги HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Проверка на человечность *