Ответы
Ответ дал:
0
var
a,b,i:integer;
begin
a:=5; b:=2;
for i:=1 to 3 do
if a>b then a:=a-b else b:=a+b;
Writeln(a,' ',b)
end.
a,b,i:integer;
begin
a:=5; b:=2;
for i:=1 to 3 do
if a>b then a:=a-b else b:=a+b;
Writeln(a,' ',b)
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад