Дано целое число. Если оно является положительным, - вопрос №119103091 от Никейти 17.05.2022 23:37

Question

Информатика: Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Вывести полученное число.

Никейти · Answer

program If3;

var

N : Integer;

begin

Write('Введите целое число: ');

Readln(N);

if N>0 then N:=n+1;

if N<0 then N:=n-3;

if N=0 then N:=17;

writeln(N);

end.

Объяснение:

Решение Pascal