Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наи большего) из введёных чисел.Используйте оператор repeat.------------------------------------------------------------- Решить в паскале напишите программу вычисления наибольшего общего делителя двух натуральных чисел а) использовать оператор repeat б)использовать оператор while
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наи большего) из введёных чисел.Используйте оператор repeat.------------------------------------------------------------- Решить в паскале напишите программу вычисления наибольшего общего делителя двух натуральных чисел а) использовать оператор repeat б)использовать оператор while
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.
Обе программы позволяют ввести два натуральных числа и вычислить их наибольший общий делитель с помощью разных операторов цикла.