Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наи большего) из введёных чисел.Используйте оператор repeat.------------------------------------------------------------- Решить в паскале напишите программу вычисления наибольшего общего делителя двух натуральных чисел а) использовать оператор repeat б)использовать оператор while

Предыдущий
вопрос Следующий
вопрос

a) Программа на Паскале с использованием оператора repeat:

program GCD_repeat;
var
num1, num2, remainder: Integer;
begin
writeln('Введите два натуральных числа:');
readln(num1);
readln(num2);
repeat
if num1 > num2 then
num1 := num1 - num2
else
num2 := num2 - num1;
until (num1 = num2) or (num1 = 0) or (num2 = 0);
writeln('Наибольший общий делитель: ', num1);
end.

b) Программа на Паскале с использованием оператора while:

program GCD_while;
var
num1, num2, remainder: Integer;
begin
writeln('Введите два натуральных числа:');
readln(num1);
readln(num2);
while (num1 <> num2) and (num1 <> 0) and (num2 <> 0) do
begin
if num1 > num2 then
num1 := num1 - num2
else
num2 := num2 - num1;
end;
writeln('Наибольший общий делитель: ', num1);
end.

Обе программы позволяют ввести два натуральных числа и вычислить их наибольший общий делитель с помощью разных операторов цикла.