Войти Регистрация Спроси ai-bota

Найти нод(нод(a,b),c).алгоритм евклида.pascal

Показать ответ

Ответ:

rudenkovitalik

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 оценок)

Популярные вопросы: Информатика

loshka2256

28.07.2021 20:52

Як записуються коментарі в програмах?...

karina211206

25.08.2022 22:11

Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите только...

RoyaIHeII

22.06.2020 10:15

Среди чисел 1,4,9,16,25...найти первое число,меньшее n. n ввести с клавиатуры паскаль...

Валерия11111246

18.05.2021 23:42

сделать тест по информатике...

sluvka123123

22.05.2021 13:07

Напишите программу нахождения дня недели по номеру дня в ноябре текущего года в паскаль ( )...

swetammm2018

05.09.2022 13:18

. «Умный дом» можно считать предшественником интернета вещей (IoT). Что особенного в его технологии? ( ) ● Датчики расставлены по всему дому и могут контролировать температуру,...

ГретхенМарго

10.04.2020 17:50

. Какая задача будет решена при выполнении предложенного программного кода? * поиск среднего значения элементов массива * поиск минимального элемента массива * поиск максимального...

jenkatimosh

31.08.2020 05:11

напишите эссе-рассуждение на тему «как изобретатели могут повлиять на страны». соблюдайте тип текста-рассуждения. приводите убедительные аргументы. используйте вводные конструкции....

Ivangevorgyan

23.02.2022 05:12

Навіщо охороняють рідкісні види рослин і тварин, які не мають практичного значення?...

Grisha7089

27.01.2021 12:02

Как сказать: весений или весенний? ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку