Question

Как решить 9 и 10? Помогите, срочно

Answer 1

Ответ:

1) в файле

2)

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.