Pascal. найти нод чисел a и b алгоритмом евклида и вывести сколько шагов цикла вычисления нод было произведено.
(вычисление нод без вывода шагов):
while a< > b do begin
if a> b then
a: =a1-b1
else
b : = b-a;
das: =b;

Откровение    1   30.10.2019 21:42    1