Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
blik5
26.03.2020 01:04 •
Информатика
Впаскаль. написать процедуру и функцию нахождения nod 2
Ответ:
Lanevskie2004
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 оценок)
Популярные вопросы: Информатика
HarryPotter2015
26.08.2022 12:59
Скільки зразків (m) можна викликати з мережі Хопфілда, якщо кожен збережений вектор містить n = 10 елементів? Обґрунтуйте відповідь....
09kok90
12.07.2021 00:58
Программу написать в Python....
Robobob
26.02.2020 11:22
C++ Пробелы по правилам В строке имеется несколько слов, разделенных одним или несколькими пробелами. Требуется убрать из текста лишние пробелы: два и более пробелов подряд,...
Semechko228
27.01.2023 03:18
Даны три числа. 5 8 3. результатом является среднее арифметическое данных чисел определите тип входных и выходных данных...
Просточеловек777
02.01.2020 17:21
Составьте о состоянии вещества ответ у которой был бы только газ...
milana372
02.01.2020 17:21
V. заполните пропуски артиклями a, an или the, где это необходимо, переведите предложения на язык. 1. your address book is on … table. 2. purple is … nice colour. 3. america...
10071927
02.01.2020 17:21
Какую роль в писменом речи имеет запятая...
YeezyM
02.01.2020 17:21
Ввыражении 120: 24+29*3-80 раставьте скобки так чтобы значения полученного выражения было равно 1) 12 2) 22...
kozlovadasa52
02.01.2020 17:21
Слова, родственные глаголам ходить, летать, возить...
Tori1111111
02.01.2020 17:21
Укажите среди регионов мира два с наибольшей численностью городского населения: 1- европа 2-азия 3-африка 4-северная америка 5-латинская америка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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;