Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
андряков1103
19.10.2022 21:55 •
Информатика
Найти нод(нод(a,b),c).алгоритм евклида.pascal
Показать ответ
Ответ:
dilnaz116
10.07.2020 01:48
Program zzz;
var a,b:integer;
begin
readln(a,b) ;
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pupil80022225
16.07.2020 23:26
Как называется общая часть имени у группы компьютеров в сети интернет...
DKNRMLLY
16.07.2020 23:26
Написать типы исполнительных файлов, системных файлов, текстовых, графических, видео файлов, аудио файлов, файлов на языке программирования и архивных файлов. например:...
pavelshilov200oxnuw1
13.05.2023 05:44
Вариант № 1 (в скобках приведена система счисления) 1. Используя триады и тетрады перевести в необходимую систему счисления: a. 6271,25(8) - (2) b. 2E53,A1 (16) (2)...
livekristinka
19.07.2021 15:09
решить пару задач на C#! 1)В файле в столбик записаны 10 букв. Сформировать новый файл, в котором заменить все буквы «а» и «о» на «1». Создать консольное приложение,...
puremoorning
28.10.2020 07:35
Задание:У логическую функцию Y=((A+B(черточка сверху)*B)+(A(черточка сверху)*(В+С)) и убедительная с выполнить с ходами решением...
inna75
29.08.2022 02:25
Дана таблица “Счет к оплате”. А)Определите формат ячеек C4:C10.………………………………………………………………………………………….Б)Определите формат ячеек B4:B10.…………………………………………………………………………………за...
emilligrin
26.04.2023 11:05
Дайте ответ на данный вопрос...
elbrusikus
11.06.2021 23:29
решить Хотя бы 2 задания...
YAN222
19.07.2022 07:58
основание треугольника равно 10 см, один из углов при основании равен 45°, а протволежащий равен 60°. найдите сторону протвалежащую углу в 45°...
astreyalirey
12.11.2022 21:21
Упростите выражение sin(п-a)-cos(п/2+a)/cos(п+a)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b:integer;
begin
readln(a,b) ;
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
writeln(a);
end.