Помощь - Поиск - Пользователи - Календарь
Полная версия: паскаль АВС
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
serega10
Дано целое число в диапазоне 20-99, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 20 — «20 лет», 32 — «32 года», 41 — «41 год».
@nto$ka
Нужно брать последнюю цифру. Если она 1 - год, 2,3,4 - года, а в остальных случаях лет.
Чтобы взять последнюю цифру можно, например, взять остаток от деления на 10.
APAL
Var Vozrast : Byte;
...
Case Vozrast mod 10 of
1 : Write('год');
2,3,4 : Write('года');
else Write('лет');
end;
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.