Var a,b,i: integer
begin
a:=5;
for i:=1 to 10 do begin
b:=a-i; if a-b<6 then a:=b-2a else a:=2b-a
end; writeln(a) end

Question

Информатика: Var a,b,i: integer begin a:=5; for i:=1 to 10 do begin b:=a-i; if a-b 6 then a:=b-2*a else a:=2*b-a end; writeln(a) end

Настя200101 · Answer

3829sud399999999Объяснение:33333333333333333333333333333333333333333333333333333333333333333333333333...

Var a,b,i: integer begin a:=5; for i:=1 to 10 do begin b:=a-i; if a-b<6 then a:=b-2*a else a:=2*b-a end; writeln(a) end