Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pechenkinaolga5
02.11.2022 15:29 •
Информатика
Выполнив предыдущее , проведите трассировку алгоритма евклида для нахождения нод чисел 128 и 56
Показать ответ
Ответ:
Ксения222332
02.10.2020 10:31
Извиняюсь за полусишный код
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
barnyrossa
18.08.2021 12:13
В результате выполнения программы матрица была заполнена следующим образом, см. рисунок. Какая формула, использующая индексы i и j, была записана на месте многоточия? from...
GarveL
05.07.2022 03:16
Код это а) сообщение об ошибке б) зашифрованное сообщение в) генетическая информация, хранящаяся в клетках живых организмов г) последовательность символов некоторой знаковой...
kosta292006
22.01.2021 12:58
Впредставленном фрагменте программы значения одномерного массива с оператора цикла. чему будет равно a[5]? for i : = 1 to 5 do begin a[2*i - 1] : = i; a[2*i] : = i*i end; a)...
tvin2005
15.01.2023 04:33
Имя текстового файла выглядит следующим образом: song.mp3book.docxOSPPREARM.EXE phone.jpg...
boykorostik
05.09.2022 06:43
По программированию: найдите сумму и произведение чётных чисел в массиве. Количество элементов массива ввести с клавиатуры. сделайте нужно сдать сегодня ! ...
MrDog2005
26.05.2023 04:08
до іть Стартуємо із формули водиКлюч: дріб, у якому чисельник – сума атомів у молекулі води, а знаменник – масова частка Оксигену у відсотках, подана цілим числом....
мангл63
11.01.2022 14:56
Придумать по три примера на каждый тип связи в словосочитаниях...
Timewinter
21.05.2021 04:37
Эсен журуп жетилсен эл ырчысы болосун омур берсе чоноюп оз ордума конорсун токтогул кайсы шакиртине карата ырдайт ...
BUSOS
05.10.2021 06:00
1. Назвіть причини, що змусили римлян розпочати війну проти Карфагену. 2. Які реформи встиг провести Юлій Цезар?3. Що змусило патрицій піти на поступки плебеїв?4. Як ви особисто...
dasha1957
14.01.2021 16:13
Назови область Республики Казахстан, в которой: 1. добывают алюминиевые руды2. с наибольшими запасами угля.3. находится медная руда...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.