Ответы
Ответ дал:
0
var yo: integer;
begin
readln(yo);
writeln(yo, (yo mod 10 = 0) or (yo mod 10 >= 5) ? ' лет' : (yo mod 10 = 1 ? ' год' : ' года'));
end.
Не бойтесь тернаров
begin
readln(yo);
writeln(yo, (yo mod 10 = 0) or (yo mod 10 >= 5) ? ' лет' : (yo mod 10 = 1 ? ' год' : ' года'));
end.
Не бойтесь тернаров
Ответ дал:
0
спасибо
Ответ дал:
0
почему пишет ошибку
Ответ дал:
0
В каком месте?
Ответ дал:
0
перед первым вопросом
Ответ дал:
0
Скачайте новый PascalABC.NET с одноимённого сайта
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад