Программирование как сделать 1

Question

Программирование как сделать 1

---

Answer 1

Var  yo: integer;
begin
  readln(yo);
  writeln(yo, (yo mod 10 = 0) or (yo mod 10 >= 5) ? ' лет' : (yo mod 10 = 1 ? ' год' : ' года'));
end.
Не бойтесь тернаров

Comments

спасибо

---

почему пишет ошибку

---

В каком месте?

---

Скачайте новый PascalABC.NET с одноимённого сайта