Панкратович
6 год назад
Составить по алгоритму программу на языке программирования Pascal.
ОТВЕТЫ
Avramievich
Aug 7, 2019
Var
a,b,i:integer;
begin
a:=5; b:=2;
for i:=1 to 3 do
if agt;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 agt;b then a:=a-b else b:=a+b;
Writeln(a, ,b)
end.
31
