Составьте программу определения наибольшего общего делителя двух натуральных чисел. на абс паскале надо

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

Ответ:

Artem13518

03.10.2020 15:57

Var a,b,NOD:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
while (a<>0)and(b<>0) do
if a>b then a:=a mod b else b:=b mod a;
NOD:=a+b;
writeln('НОД=',NOD);
end.

Пример:
a=75
b=125
НОД=25

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

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

kirra00787p07znc

29.09.2020 09:51

ПОЖ НЕ СПИСЫВАТЬ ДАЮ 25 БЫЛЛОВ ПОЖЖ ХЕЛП Создайте презентацию из 3-х слайдов средствами Power Point. Тема презентации: “Представление и обработка звука”. 1 слайд - титульный....

Like923

07.02.2021 09:26

с не особо сложным заданием по информатике Определить, к какому типу данных относятся выражения и занести в таблицу. Файл сохранить на Рабочем столе в своей папке с именем...

sirius2010

04.11.2022 17:26

НЕ СПИСЫВАТЬ ДАЮ 25 Создайте презентацию из 3-х слайдов средствами Power Point. Тема презентации: “Представление и обработка звука”. 1 слайд - титульный. Укажите автора работы...

Ujwy

04.12.2020 03:22

Найти остаток от деления числа 1415 в 7ричной на число 14 в 12ричной, ответ записать в системе счисления по основанию 3 (три). Основание системы счисления в ответе не указывать....

stepanoganezov

04.12.2020 03:22

Рекурсивный перевод Напишите рекурсивную процедуру для перевода десятичного числа в P-ичную систему счисления. В данной задаче запрещено использовать циклы и массивы. Входные...

He12022005

13.07.2021 01:11

Як кодуються звуки природної мови?...

zhurik777

18.03.2022 06:58

Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала вычисляется длина исходной цепочки символов; если она нечётна, то дублируется...

Remka228

06.05.2023 21:27

В симфонический оркестр приняли на работу трёх музыкантов: Влада, Глеба и Артёма, умеющих играть на скрипке, флейте, альте, кларнете, гобое и трубе. Известно, что: Глеб самый...

dashutka20032

24.07.2022 02:42

Запишите на языке Паскаль программы решения задач № 25-30 из & 2.4. Используйте оператор while. 25) Напишите алгоритм, под управлением которого Робот обойдет прямоугольную...

demoooon24

17.10.2022 00:11

ЧЕРТЁЖНИК, 6 класс! Привет! На дистанционке задали нарисовать в тетрадке, а я вообще не понимаю нарисуйте на листочке по этим координатам, а второе задание я по Вашему примеру...

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

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