Дано Целое число. Если она является положительным, то прибавить к нему 59; противном случае не изменять его. Вывести полученное число. Очень надо!!!!
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Program SomeNameHere;
Var a: integer;
begin
Write('Введите целое число: ');ReadLn(a);
if a > 0 then WriteLn('Результат: ', a + 59)
else WriteLn('Результат: ', a);
end.