Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nikitka199821
30.01.2023 00:23 •
Информатика
Написать программу, которая вычисляет наибольший общий делитель двух целых чисел паскаль
Показать ответ
Ответ:
Даниил20061605
01.10.2020 14:51
Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MrRainClouD
23.08.2022 10:40
В алфавите 16букв. Каков информационный вес одной буквы? Выбери из правильного варианта ответа. 4 бита 5 битов 32 бита 6 битов 8 битов...
aiwaab9
28.03.2022 19:15
Дано число a. Найдите 5 простых чисел, больших чем a. Pascal программирование....
nekit1o6
26.03.2023 08:31
Петя на экскурсии сделал фотографию . Количество цветов на фотографии 16777216. Разрешение фотографии 4096х2048 пикселей определите объём данной фотографии Информатика ребят ,...
ajklggghzyz
24.10.2022 11:08
Почему в Binance нельзя зайти с Беларуси?...
Nastya125473333
15.03.2022 10:22
Вставить документ в рисунок...
gasi20022
10.04.2021 22:09
Користуючись 2 завданням заповніть таблицю....
BaLaWkA2004
08.08.2022 23:43
Для хранения в информационной системы документы сканируется с разрешением 150 dpi и цветной системой, содержащий 65536 цветов Метод сжатия изображения не используется. Средний...
aaysu228
04.01.2022 16:15
Складіть проект для обчислення значення виразу...
павликпавлик2
18.03.2023 10:53
Даны координаты (как целые от 1 до 8) двух полей шахматной доски. Определите, может ли конь за один ход перейти с одного из этих полей на другое. З.Ы. : смотрел уже ответы, там...
артем200412прков
03.03.2023 14:40
Ребята решить два варианта умоляю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
end.