Предмет: Информатика,
автор: Kotstantin328
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Протестируйте программу для числе 25, -31 и 0.
Ответы
Автор ответа:
0
Ответ:
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.
Интересные вопросы
Предмет: Химия,
автор: ilderovv563
Предмет: Литература,
автор: kappa692
Предмет: Математика,
автор: математика42
Предмет: География,
автор: Мироддшпп
Предмет: Математика,
автор: saltanat22041