Напишите процедуру Паскаль по этой программе: var a, b, nod, k: integer;
begin
readln(a, b);
k := 0;
while (a <> 0) and (b <> 0) do begin
if a > b then a := a mod b
else b := b mod a;
k := k + 1;
end;
nod := a + b;
writeln(nod, ' ', k);
end.
​

hrustam2004    1   07.03.2021 14:15    1