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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

fdhhivanova00

11.11.2020 05:44

Имеется квадрат лист бумаги длинной 21 см. по углам листа вырезают одинаковые квадраты. какая должна быть длинна стороны маленького квадрата, чтобы получить коробку максимального...

harchuk181002

18.03.2020 08:12

Паскаль. написать программу электронных часов. вводятся минуты и секунды, и часы начиная отсчет с них, начинают работать. то есть должен быть такой вид 23: 44 и как дойдёт...

геймер39

18.03.2020 08:12

Три человека иванов,петров,сидоров образуют очередь .запишите все возможные варианты образования этой очереди....

logan9

09.01.2022 18:09

Обстановка, в которой работает(существует) исполнитель алгоритм, в котором описание действий, должно повторяться указанное число раз или пока не выполнено заданное условие...

Кatе

04.03.2022 20:52

Определите, какое из указанных имен файлов удовлетворяет маске а? .ht* (символ «*» это любая последовательность символов произвольной длины, в том числе и пустая последовательность,...

9251530703

16.03.2022 10:47

Теория вероятности, на прилавке лежат 8 пар одинаковых пар перчаток, но у одной пары есть незаметный снаружи брак внутри обеих перчаток. в ходе примерок все перчатки перемешались....

Bogura

16.03.2022 10:47

Найти значение выражения (y-6)(y+-y)(1-y) при y= - 0,2...

fgjhgfhh1

16.03.2022 10:47

Как ты понимаешь высказывание матери всегда проклинают войну...

ExplodingPies

16.03.2022 10:47

Синтаксический разбор предложения : а дальше должны действовать мы!...

mrdanildanDan

16.03.2022 10:47

1целая1/5 умножить 3 плюс 4/5 умножить на 3.сколько получиться...

Ответ:

danilpro2017

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

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

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