var a,b: integer;
begin
while (a<>0) and (b<>0)do
if a>b then
a:=a mod b
else
b:= b mod a;
end.
1Дополните программу оператором вывода результата.
2Запишите условный оператор, который выводит результат, проверяя одну из переменных на равенство нулю.
3ДОПОЛНИТЕ программу так, чтобы она считала ещё и количество сделанных шагов цикла. ( Введите переменную-счётчик целого типа).
program Evklid;
var a, b, s: integer;
begin
//Добавлен оператор ввода чисел
readln (a, b);
// Добавлен условный оператор из пункта 2
if not ((a=0) or (b=0)) then
begin
// Добавлен счетчик шагов s из пункта 3
s:=0;
while (a<>0) and (b<>0)do
begin
if a>b then
a:=a mod b
else
b:= b mod a;
s:=s+1;
end;
end;
// Добавлен оператор вывода из пункта 1
writeln('Nod = ',a+b, ', S = ',s);
end.
Результат выполнения программы: