Вопрос по информатике:
Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет
- 01.07.2018 20:17
- Информатика
- remove_red_eye 1464
- thumb_up 34
Ответы и объяснения 1
Procedure Age(n: integer);
var
m: integer;
s: string;
begin
if ((n >= 11) and (n = 111) and (n <= 120)) then s := 'лет'
else begin
m := n mod 10;
case m of
1: s := 'год';
2..4: s := 'года';
else s := 'лет'
end
end;
Writeln('Возраст равен ', n, ' ', s)
end;
- 02.07.2018 05:53
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.