Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным -2. если 0 то прибавить 10.

1941108 1941108    3   19.06.2019 06:00    2

Ответы
лербел лербел  15.07.2020 16:09
 var
     a : integer;

begin
 readln (a);
 if a > 0 then
  a := a +1;
 if a <0 then
   a := a-2
if a= 0 then
  a := 10;
writeln (a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика