Назад   Задать вопрос
Информатика
9 класс
5 отметок
+ В закладки
13.12.2014, 19:39

Введите возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года" или "лет". Пример: Введите возраст: 24 Вам 24 года Введите возраст: 57 Вам 57 лет ИЛИ ЕЛИ НЕ ПОЛУЧИТСЯ, ТО ЭТУ ЗАДАЧУ: Ввести номер месяца и вывести название времени года. Пример: Введите номер месяца: 4 весна (Забыл написать, надо сделать в программе КуМир)

Комментарии (0)

Ответы и решения
14.12.2014, 18:15
var n:integer;
begin
write('введите возраст: ');
readln(n);
if (n>11) and (n<21) then writeln('Вам ',n,' лет')
else
if (n mod 10 = 1) then writeln('Вам ',n,' год')
else
if ((n>21) and ((n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4))) or ((n>1) and (n<5)) then writeln('Вам ',n,' года')
else
writeln('Вам ',n,' лет');
readln;
end.

Оценка: 4.5 (голосов: 11)

Комментарии (0)
14.12.2014, 18:17
const
 i=[11..14];
var
 n: integer;
begin
 readln(n);
  if n in i then writeln('Вам ', n, ' лет') else
   case (n mod 10) of
    1: writeln('Вам ', n, ' год');
    2..4: writeln('Вам ', n, ' года');
    0, 5..9: writeln('Вам ', n, ' лет');
   end;
end.

Оценка: 1.0 (голосов: 4)

Комментарии (0)
14.12.2014, 18:23
Program Nothing;
uses
crt;
var
year:integer;
desytki:real;
begin
write('Введите ваш возраст (от 1 до 150 лет): ');
repeat
readln(year);
until (year<=150);
write('Вам ',year);
desytki:=(year mod 100 - year mod 10)/10;
if (desytki = 1) then
   writeln(' лет.')
else if (year mod 10 = 1) then
     writeln(' год.')
else if (year mod 10 = 2)or(year mod 10 = 3)or(year mod 10 = 4) then
     writeln(' года.')
else if (year mod 10 = 5)or(year mod 10 = 6)or(year mod 10 = 7)or(year mod 10 = 8)or(year mod 10 = 9) then
     writeln(' лет.');
end.

Оценка: 3.5 (голосов: 2)

Комментарии (0)