Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Дончара
05.02.2020 10:19 •
Информатика
Программа евклида в паскаль где нод 40 и 64
Показать ответ
Ответ:
ЗиА11
07.09.2020 19:25
PROGRAM P_1;
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
900901
23.05.2021 20:05
Дан числовой массив а, состоящий из п натуральных чисел. найти произведение минимального и максимального элементов.( )...
leylakhalimova
23.05.2021 20:05
Сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма...
Gibertblite
04.08.2020 07:30
Придумайте свою цепочку преобразований произвольного числа, такую, чтобы в результате всегда получалось 5....
ZAKHARRROVA20001
07.08.2022 01:41
Введены 2 числа, выведите их произведение, если первое больше второго и разность их в противном случае...
Оксана0990
07.08.2022 01:41
Ввели два числа найдите меньшее из них и определите, делится ли оно на цело на 5...
alinanamcat12
21.05.2021 23:29
Вычислить среднее арифмитич. 5 чисел в basic visual...
еаае1ьп
21.05.2021 23:29
Даны натуральное число n, действительные числа a1,. получить: а) сумму отрицательных и количество положительных членов последовательности a 1, a2 , an ;...
langueva1405
28.01.2020 01:41
Найти сумму элементов целочисленного массива. программу составить на паскале...
TheSniper
30.08.2021 17:35
Найдите правило преобразования 1-1 2-2 3-0 4-1 20-2 21-0 1-0 2-0 3-1 4-1 20-6 21-7...
Vlada722
30.08.2021 17:35
Что происходит с предыдущим значением переменной после присваивания ей нового значения?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.