• Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :3
    Известен возраст (целое число от 1 до 99). В зависимости от возраста вывести на экран фразу:
    «Мне … лет»
    «Мне …года»
    «Мне …. Год»
    подсказка: Воспользуйтесь функцией mod (искать в справочных материалах)

Ответы 4

  • ты уверен, что правильно?
    • Автор:

      wyatt2
    • 6 лет назад
    • 0
  • я проверила и у меня вообще ничего не работало
    • Автор:

      garcía23
    • 6 лет назад
    • 0
  • Я тоже проверял и у меня все работало.
  • Var A : Byte;Begin  Readln(A);  Write('Мне ',A,' ');  Case A mod 10 of    0,5..9 : Writeln('лет');    2..4   : Writeln('года');    1      : Writeln('год');  end;end.
    • Автор:

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

Войти через Google

или

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

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

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