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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.