Задать вопрос
ИнформатикаИнформатика
29 сентября, 19:14

Помогите!

Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.

Паскаль

+2
Ответы (1)
  1. 29 сентября, 21:51
    0
    Program vozrast;

    var n: integer;

    begin

    writeln ('Введите возраст') ;

    readln (n) ;

    if (n=1) or (n mod 10 = 1) then writeln ('Мне ', n,' год')

    else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ', n,' года')

    else writeln ('Мне ', n, ' лет') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите! Напечатайте фразу "Мне n лет", согласовав число n (n ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Помогите! Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год. Паскаль
Регистрация Забыл пароль