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

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

Ответ:

Акжан1111111

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

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

martynenko7474

01.12.2020 07:37

Вывести на экран сумму а+b; значения а и b...

Strelkov18

21.12.2020 22:36

Перевести число 10010.11 из двоичной системы счисления в десятичную....

2016mashamulalp0500j

08.11.2021 19:16

Какое из указанных ниже имен удовлетворяет маске *mar? *.do: imar.doc; mart.docx; lamarc.doc; smar.dot?...

cfr1

18.04.2020 01:43

Ниже перечислены действия, выполняемые на этапах редактирования и форматирования текстового документа замена одного символа на другой вставка пропущенного слова видоизменение...

ДимаСуровенков

18.04.2020 01:43

Какое имя файла допустимо в ос windows?...

Jand9

18.04.2020 01:43

Cклавиатуры вводятся длины 2-х отрезков. одна длина отрезка задана в миллилитрах, другая в дюймах. какой отрезок длиннее&...

pvpgaydukoxzb3r

18.04.2020 01:43

Решить : символом f обозначено одно из указанных ниже логических выражений от трех аргументов x, y, z. дан фрагмент таблицы истиности выражения f: x y z f 0 1 1 0 1...

bsemeniyp06rp6

24.10.2021 04:58

Составить линейный алгоритмчертёжника , который изображает звезду...

samiragubai

10.12.2020 17:24

Мне нужно условия в таблице : в столовой за два дня израсходовали 70 кг муки из одинаковых пакетов. в первый день израсходовали 8 пакетов по 5 кг. сколько пакетов израсходовали...

nikzhukov989

10.12.2020 17:24

Друг это важный в жизни человек (аргумент)...

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

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