Предмет: Информатика,
автор: kobelev280505
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Вывести полученное число.
Ответы
Автор ответа:
2
Ответ:
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
Похожие вопросы
Предмет: Русский язык,
автор: UMZ6
Предмет: Українська мова,
автор: osa3
Предмет: Русский язык,
автор: КОТЭЙКА2001
Предмет: История,
автор: ayoosh03130717
Предмет: Математика,
автор: МилаяДевочка10987