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

Ответы 1

  • 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(' лет');elsewriteln('error');end;end.
    • Автор:

      kalegzba
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years