Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alenazakhar2000al
01.05.2023 00:37 •
Информатика
Выполнив предыдущее , проведите трассировку алгоритма евклида для нахождения нод чисел 128 и 56
Показать ответ
Ответ:
hickov2003
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 оценок)
Популярные вопросы: Информатика
ViollaK2704
04.03.2022 11:58
Сколько битов составляют 1/2 килобайта?...
vlad0805
04.03.2022 11:58
Составте ребус к словам информатика и кодирование...
помогите2323
04.03.2022 11:58
Случайно поменяли кодировку в веб-браузере на армянскую, получилось слово ստիկտկոչց, какое слово может быть закодировано слово: заставить, королевна, космонавт,...
mmmm0
07.10.2021 10:56
Составьте предложение. лиловым,прыгали,и,краснозобые,снегири,,шишкам,синички,вертелись,по....
annamironova6941
07.10.2021 10:56
Решите уравнение 3(0,3х-5)-2(0,3х-5)=10+0,4х...
51bai
07.10.2021 10:56
Олег сложил пополам прямоугольник со сторонами 2 дм и 1дм так что получился квадрат.запиши длину стороны получившегося квадрата...
edeeeeeeffer
07.10.2021 10:56
Один из углов ромба равен 60 градусов меньшая диагональ равна 20 см найти периметр...
NastyaMeow05
07.10.2021 10:56
С! к саше на день рождения прилетели 5 инопланетян.их было на 2 меньше,чем пришло сашиных одноклассников,и на 1 больше,чем его родственников.сколько всего собралось гостей,если...
gorlatenkoviktoria
07.10.2021 10:56
Почему опасно гладить бездомных собак...
TipsSpeed
07.10.2021 10:56
Коротышка, придумавший воздушный шар? н.н. носов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.