Задача. Дано целое число. Если оно является положительным, то прибавить к нему 1; иначе, если отрицательным, то вычесть из него 2, иначе заменить его на 10. Составить блок-схему и программу
Паскаль абс
Паскаль абс
More Questions From This User See All
Answers & Comments
Verified answer
Var a: integer;begin
readln(a);
if a >= 0 then
if a = 0 then a := 10
else Inc(a)
else a -= 2;
write(a);
end.