Дано целое число. Если оно является положительным. То прибавить к нему 1; если же…

Question

61

Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2Вывести полученное число

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

rightman · Accepted Answer

90

rightman

23 августа 2022

Program chisla; Uses Crt; Var a: integer; Begin; Writeln ('Введите любое целое число'); Readln a; If a>0 then a: =a+1 else a: =a-2; Writeln ('a=',a); End

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: