Дано целое число А. Если значение А < 0, то необходимо удвоить его. Разрабо-тать схему...

Question

Дано целое число А. Если значение А < 0, то необходимо удвоить его. Разрабо-тать схему алгоритма для решения этой задачи. Протестировать алгоритм для A=6, A=-10, A=0.

Answer 1

Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
end.

---

Comments

фотографию не видно(