c++ В сказочной стране Лукоморье в целях экономии топлива все грузы перевозят на Змей Горыночах, имеющих свой бортовой номер от 1 до 100. Количество голов Змея(случ. число от 1 до 1000) определяет его грузоподъемность. В архиве К. Бессмертного заведено личное дело на каждого Змея Горыноча с информацией о количестве голов и бортовом номере Однажды на Калиновом мосту грузовым Змеем Горыночем была сбита гражданка Баба Яга. Нарушитель скрылся, но свидетели показали, что число голов Змея кратно его бортовому номеру Д. Никитичу следователю по ДТП выяснить нарушителя.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.