Арис
4 год назад
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Вывести полученное число.
ОТВЕТЫ
Артём
Oct 24, 2020
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.
612
Смежные вопросы: