Дано целое число. Если оно является положительным, - вопрос №16943292 от 89115603408 28.01.2021 00:01

Question

Информатика: Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Протестируйте программу для числе 25, -31 и 0. ​

89115603408 · Answer

var a: integer; begin  readln(a);  if (a 0) then    a:=a+1  else    if (a 0) then      a:=a-3    else      if (a=0) then        a:=17; writeln(a); end....