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

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

Ответ:

fredkalash

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

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

Vovndr

16.02.2021 10:35

Дан массив из 20 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение....

Pitbull2015

08.09.2020 01:14

2. Определите значение переменной a после выполнения алгоритма: Алгоритм a:= 15 b:=47 mod a b:=b*10 a:=b div 4 + 5...

trol77

13.04.2020 20:41

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

kkostova

01.08.2021 06:23

Я уже писала этот вопрос, но никто не ответил (...

katyunyagolubmailru

26.05.2022 16:11

помагите только с обиснением ...

Ксения201711112

05.12.2022 16:06

Значение переменной a равно 1. Определите, сколько раз выполнится цикл и чему будет равно значение этой переменной после его завершения: for i in range(1,3,-1): a...

7775553331

13.04.2020 20:06

Было проведено 10 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел: (100, 110); (85, 95); (105, 100); (95, 110);...

89050864690

09.08.2020 02:18

Чем отличается текстовый редактор от текстового процессора...

inan228

27.05.2020 10:25

сравните форматирования символов с панели инструментов и через контекстное меню . какой из них на ваш взгляд удобнее...

Саша555111

23.05.2020 17:10

Написать сколько байтов в имени Акимова Дияра...

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

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