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

Программа евклида в паскаль где нод 40 и 64

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

Ответ:

linda310384

07.09.2020 19:25

PROGRAM P_1;
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.

0,0(0 оценок)

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

yulia6263

13.03.2023 11:05

1. Назовите тип данных 2+3 2. Назовите тип данных в команде print (2+3) 3. Назовите ошибку в команде print (Hello world)...

fox2457667

17.11.2022 00:27

Дано целое шестизначное число. найти произведение его цифр...

Karbobo

29.04.2022 15:09

Dear liza,i don t think i will do a lot on my holidays.i think i.i d like to , but i also should.i hope i .i can t wail to because .from russia with love,...

xXxA6PUKOCxXx

29.04.2022 15:09

Зякими з перелічених речовин прореагує розчин плюмбум (іі) нітрату ( з розв язками цих рівнянь): цинк хлорид, залізо, натрій гідроксид, сульфур (iv) оксид, (іі) сульфат, сульфатна...

jumalieva03

29.04.2022 15:09

Запиши числа в порядке возрастания. 67,83,35,51,90,49,61,68,44....

PabloDC

29.04.2022 15:09

12. укажите сложносочиненное предложение с противительным союзом.1) домик был небольшой, зато чистенький и уютный. 2) от воды стал подниматься туман, и отец приказал евсеичу отвести...

danik24rysskiy

29.04.2022 15:09

Почему тривиум и квадриум изучали в определённом порядке?...

navozovaleksejj

29.04.2022 15:09

Обращение к раскольникову о неправильности его действий...

Тупик101

06.03.2020 06:50

В) в парк 96 саженцев деревьев. после того как несколько саженцев посадили, осталось посадить ещё 72 саженца. во сколько раз больше саженцев осталось посадить, чем посадили...

Віка579

06.03.2020 06:50

Как переводится слово polyisoprenoids?...

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

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