Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sirius830
28.04.2021 07:06 •
Информатика
Составить программу 1. нужна программа на тему алгоритма евклида, составьте ,чтобы в паскаль её забить. программа для нахождения наибольшего общего делителя.
Показать ответ
Ответ:
MASCAM
24.09.2020 12:07
//Pascal ABC.NET v3.1 сборка 1172
var
a, b, nod: integer;
begin
read(a, b);
while a * b <> 0 do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
writeln(nod);
end.
Пример ввода:
1071
462
Пример вывода:
21
0,0
(0 оценок)
Популярные вопросы: Информатика
skalapendra1212
24.02.2020 04:20
Задание 1. На C++ используя указатели на переменные ввести два дробных числа с клавиатуры и вычислить их сумму. Затем полученную сумму передать через ссылку в отдельную...
LeMuRkA228
31.01.2023 13:28
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Альфа увеличивает...
anytka260602
28.09.2021 09:20
Даны две простые дробиПолучить дробь, являющуюся результатом их деленияa/b:c/d=a*d/b*c=m/n...
TruckThorEast
15.07.2020 22:09
на бесконечном поле есть горизонтальная и вертикальная стены правый конец горизонтальной стены соединён с Нижним концом вертикальной стены длины стен неизвестны в каждой...
пушок32
09.11.2022 21:57
Упростить выражение по информатике (неА+В)×неС×(С+А×неВ)...
GorunovaSasha
14.01.2022 14:23
Как правильно это решать?...
ekaterintys
01.06.2020 02:36
Дано натуральное число. б) Верно ли, что произведение его цифр меньше 50? Вот код var n,p:integer; begin write( n = ); readln(n); p:=1; while n 0 do begin p:=p*(n mod...
BotanicPanik
03.09.2021 15:24
Напишите наименьшее целое число х, для которого истинно высказывание: (x 384) и (x 123).ответ:...
Лизокккккек
09.07.2020 17:14
Дворянским войском, назначением воевод, других офицеров, военными действиями ведал при Иване IV: а) Ямской приказ; б) Разрядный...
melisa9999
09.07.2020 17:14
Впервые понятие (название) Россия появилось в летописи при: а) Иване IV Грозном; б) Дмитрии Донском; в) Иване III Васильевиче....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b, nod: integer;
begin
read(a, b);
while a * b <> 0 do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
writeln(nod);
end.
Пример ввода:
1071
462
Пример вывода:
21