Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Протестируйте программу для числе 25, -31 и 0.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найти методом градиента минимум функции В Excel
Автор: andreyduborezz2913
Скажите как можно самим сделать планшет?
Автор: Rjkjneirbyf555
Шолғын бағдарлама дегеніміз не информатика
Автор: fiorire731
Скільки разів виконається цикл while?i=4;while (i<=10)i=i+3;
Автор: angelinaugan119
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.