) Внесите изменения в программы Example_8.pas и Example_9.pas,
Используя циклы с предусловием и параметром.
Program example_8;
var x,y:integer;
Begin
Writeln('Waiting for input');
Readln(x,y);
Repeat
if x>y then x :=x nod y else y :=*y nod x;
Until (x=0) or (y=0);
writeln('Нод=',x+y);
End.

Program example_9;
var x,y:integer;
Begin
Writeln('Waiting for input');
Readln(x,y);
Repeat
if x>y then x:=x-y;
if y>x then y:=y-x;
Until x=y;
Writeln('НОД=',x)
End.

igor1337d    1   26.11.2021 08:47    13