Question

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

Answer 1

Program p1;
Var a:integer;
Begin
  Write('Введите возраст: ');
  Readln(a);
  Case a of
    11..14:Write('Мне ',a,' лет');
    else
    Case a mod 10 of
      1:Write('Мне ',a,' год');
      2..4:Write('Мне ',a,' года');
      else Write('Мне ',a,' лет');
    End;
  End;
End.