Для целого число k от 1 до 99 напечатать фразу "мне k лет" учитывая при этом что при некоторых значениях k слово лет "лет" надо заменить на " год" или " года"

267

476

Посмотреть ответы 2

Ответы на вопрос:

messageman1

Информатика

4,7(62 оценок)

Var r,k: byte; beginreadln(k); write('мне ',k); if r in [5..20] then write(' лет') else case k mod 10 of1: write(' год'); 2..4: write(' года'); 5..9,0: write(' лет'); else writeln('error'); end; end.

EvgenijKalashni

Информатика

4,8(74 оценок)

Объяснение:

Мне лень писать, но это правильное

Вычисли цену товара со скидкой. (ответ округли до сотых.) Товар в магазине Товар Цена, руб. Скидка,

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку