Дано целое число.Если оно является положительным,то прибавить к нему 1,в противоположном случае вычесть из него 2.Вывести полученное число.
Ответы
Ответ дал:
0
var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
Ответ дал:
0
программу проверила, она пошла
Ответ дал:
0
var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад