Составить по алгоритму программу на языке программирования Pascal.
Приложения:

Ответы на вопрос
Ответил Аноним
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.
Новые вопросы
Українська мова,
2 года назад
Математика,
9 лет назад
Информатика,
9 лет назад
Математика,
9 лет назад