Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
666Лисица666
22.05.2020 06:01 •
Информатика
Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: нод(а, b, с) = нод(нод(a, в), с). испоьзуя алгоритм евклида
Показать ответ
Ответ:
isanatoliy25199
12.06.2020 07:17
Var
a, b, c: longint;
function nod(a, b: longint): longint;
begin
a := abs(a);
b := abs(b);
if a * b = 0 then nod := 1
else begin
while a <> b do
if a > b then
a := a - b
else
b := b - a;
nod := a;
end;
end;
begin
read(a, b, c);
writeln(nod(nod(a, b), c));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sofya15081987
15.02.2023 14:57
Вчём отличия телеконференции от электронной почты...
dmitriy14nagiev
20.03.2023 12:17
Опишите термины Интернет, данные в таблице:...
prodaction2016
19.02.2023 18:28
Пользователь вводит количество элемнтов в массиве,вывести массив с этим количеством элемнтов из диапазона от -10 до 20 найти количество десятых сумму чисел делящихся на 3 и количество...
abdulkhanaknie
10.09.2021 17:12
Какое действие с информацией совершается в каждом примере: 1.Передача информации2.Прием информации 3.Обработка информации 4.Хранение информации A. Запись телефонного номера в записную...
Мюсли004
01.08.2020 14:48
Какое действие с информацией совершается в каждом примере: 1.Передача информации2.Прием информации 3.Обработка информации 4.Хранение информации A. Запись телефонного номера в записную...
moaariishkkaa
04.04.2021 09:45
Скажите топ 5 пакетов до пайтона...
kjigun
15.10.2022 05:56
Тест. Типы данных Вопрос 1. Какое из них лучшее описание переменной?А) Переменные хранят данные программы во время выполнения кода.В) Переменные управляют объемом памяти.С) Переменные...
natashenkagrekova357
13.12.2021 23:26
Складіть алгоритм знаходження більшого з трьох різних дійсних чисел x, y, z. Підберіть три різних значення змінних та виконайте алгоритм при цих значеннях...
amayorov2002owujgy
02.09.2021 00:51
График изменения численности в России за последние 50 лет является... 1)Числовой информацией 2)Звуковой информацией3)Графической информацией 4)Текстовой информацией(возможно несколько...
Greeegooo
12.05.2020 09:39
Язык Си 1. Написать программу, которая выдает значение функции Y = tg(2x) – cos2(x), угол вводится в градусах. Перевод в радианы и поиск значения Y выполнить в функции, куда x...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c: longint;
function nod(a, b: longint): longint;
begin
a := abs(a);
b := abs(b);
if a * b = 0 then nod := 1
else begin
while a <> b do
if a > b then
a := a - b
else
b := b - a;
nod := a;
end;
end;
begin
read(a, b, c);
writeln(nod(nod(a, b), c));
end.