Question

6. Преобразуй блок- схему в алгоритм на алгоритмическом языке или в программу на языке Паскаль

Answer 1

Var a,b: integer;

Begin

a:=2;

b:=4;

while b>=0 do

begin

b:=a*b+1;

a:=a-2;

end;

b:=b+a;

write (b);

End.