помогите написать на Паскале
Дано натуральное число Y. Увеличить его на 18, если число двухзначное.
входные данные 23
выходные данные 41
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var Y := ReadInteger('Y =');
if Y in Range(10, 99) then
Println(Y + 18)
end.
Приложения:
BobbyFresnel:
В России им практически не пользуются.
ясно.. )
а нам сказали в колледже что это паскаль
Да. Это Free Pascal
то есть просить сделать на free pascal?
Да. Именно.
Попросите на Лазарус, скорее всего ничего не получите. В силы описанных выше причин
Лазарус - это формочки, в которые запихиваются коды FPC (Free Pascal)
ок, спасибо!
Пожалуйста
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад