Всё на pascal abc 1)Напишите программу, которая получает с клавиатуры два натуральных числа и находит их НОД с алгоритма Евклида.
Пример:
Введите два натуральных числа: 21 14
НОД(21,14)=7.
2)Напишите программу, которая получает с клавиатуры два натуральных числа и находит их НОД с алгоритма Евклида. Программа должна подсчитать количество шагов цикла.

3)Напишите программу, которая получает с клавиатуры два натуральных числа и сравнивает количество шагов для вычисления их НОД с «обычного» и модифицированного алгоритмов Евклида.
Пример:
Введите два числа:
1998 2
НОД(1998,2)=2
Обычный алгоритм: 998 шагов
Модифицированный: 1 шагов

К первому поколению относят ламповые машины 1940-х годов, которые пришли на смену табуляторам. Скорость счета у них доходила до 20 тысяч операций в секунду. Данные вводились с перфокарт и перфоленты

2.Технологии хранения данных активно совершенствуются со времен появления первых компьютеров. Еще вчера мы пользовались 1,44-мегабайтными дискетами, а сегодня в продаже можно найти 256-гигабатные флеш-накопители. А ведь это далеко не предел. Пока инженеры трудятся над созданием новых, более прогрессивных носителей информации, мы вспоминаем, как повлияли на компьютерную индустрию перфокарты, магнитные ленты и форматы CD и DVD

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !. split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).