Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 12. Вывести полученное число.
O program zadaca;
var
а: integer;
begin
writeln('Введи число а');
readln(a); ;
if a >=0 then
if a=0 then a:=12 else a:=a+1
else a:=a-3;
end.
O program zadaca;
var
begin
writeln('Введи число а');
readln(a);
If a > 0 then
If аѕ0 then are12 else a:a+1
else a:-a-3;
writeln(a);
readln; ;
end

bahakendjaev11    3   12.03.2021 22:42    22