Задача. Алгоритм Евклида для вычисления наибольшего общего делителя (НОД) двух натуральных чисел приведён ниже:
program Evrlid;
var a,b:integer;
begin
write(' a = ');
read(a);
write(' b = ');
read(b);
while a<>b do
if a>b then a := a - b else b := b - a;
writeln('НОД = ',a);
end.
Задание. Напишите программу, используя модифицированный алгоритм Евклида: нужно заменить большее число на остаток от деления большего на меньшее до тех пор, пока этот остаток не станет равен нулю, тогда второе число и есть НОД
Задание 1. Напишите программу, которая считает сумму цифр введенного числа.
Задание 2. Напишите программу вычисления НОД трёх чисел используя алгоритм Евклида.