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

Впаскаль. написать процедуру и функцию нахождения nod 2

Ответ:

Виктория17121

27.08.2020 13:59

Function Nsd(a,b:longint):longint;
begin
while (a<>0) and (b<>0) do
if a>b then
a:=a mod b
else b:=b mod a;
nsd:=a+b;
end;

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

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

pakipysi

14.01.2023 22:37

Объясни принцип работы реверсивного поворота...

astashkin222

18.12.2022 13:38

Напишите формулу с арифметического выражения Формула: ЗА +D А+2B +3,2C SF -4,6 А+ B АВ + 3,14 Арифметическое выражение:...

ulpashkova

22.08.2022 16:17

1. Какие меры вы принимаете для защиты информации? Почему кто даст ответ я им подпишусь...

Polly2011

13.02.2022 15:37

Напишите программу которая из 3-ех значного числа находит * цифр...

EseniyaMaster

18.12.2020 07:10

Дана квадратная целочисленная матрица, все элементы разkичны. поменять местами строки, которые содержат максимальные и минимальные элементы матрицы. pascal abc net...

Puroscok009

07.05.2023 17:21

задача в Python Дано масив цілих чисел. Вивести на екран усі парні елементи масиву....

glebborovickov

06.08.2022 23:28

Рисунок размером 1024 на 512 пикселей сохранили в виде не сжатого файла размером 1,5 мб. какое количество информации было использовано для кодирования цвета пикселя? каково...

Лизуша111авм

06.08.2022 23:28

Скакими схемами в жизни вы встречались ?...

akirienko2003

24.01.2020 09:43

Даны точки К (-4; 7) и Р (8; -1). При параллельном переносе образом середины отрезка КР является точка М (-3; —1). Найдите образы точек...

kcenigolovaxa

24.01.2020 09:43

Прямая а проходит через середину основания АС равнобедренного треугольника АВС. Можно, ли утверждать, что прямая а является...

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

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