Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sanyahit
08.05.2020 14:25 •
Информатика
Написать либо процедуру либо функцию на вычисление найбольшего общего делителя.
Показать ответ
Ответ:
Лессикаа
03.07.2020 10:52
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
Andreyко
13.03.2023 19:26
В таблице приведены за и количество найденных по ним страниц некоторого сегментасети Интернет.Подробное решение, хочу вспомнить решение данных заданий с данным недугом....
au20941
13.02.2022 11:10
Из 10сс в 2сс+ проверка 63 10, 15 10, 33 10....
vladrydskoj
17.10.2020 09:12
17 пример Разработка разветвляющихся программ с применением условного оператора Вычислить: это зачет...
Sayat2007
03.10.2022 20:47
Задание 4. Заполните пропуски, указав органы чувств человека или вид информации, которую человек воспринимает с их Органы — визуальная информация.Органы осязания — информация.Органы...
Misha22313
22.02.2023 15:49
перевести 6384219 битов в гб...
fffg16hgkk
09.06.2020 10:40
Как 1856724 битов перевести в гигобайт ПОМГОИТЕ И РАСПИШИТЕ ВСЁ...
coolvikusa46
21.03.2021 22:51
Назови. основные операции при работа с памятью...
romanovanelya
11.04.2023 21:27
6. Отметьте вредные факторы, влияющие на состояние здоровья лю- дей, работающих за компьютером. A) Проблемы, связанные с электромагнитным излучением. B) Проблемы зрения. С) Проблемы,...
kirill880
11.04.2023 21:27
7. Отметьте опасные угрозы Сети. А) Вредоносные программы. B) Кража компьютера. C) Хакерские атаки. D) Спам. E) Финансовое мошенничество....
angel4004
10.05.2021 14:27
Кто такой Роберт Кийосаки?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;