Дано целое число. Если оно является положительным, то прибавить к нему 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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад