Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
AWIKOZA
08.08.2022 07:13 •
Информатика
Впаскаль. написать процедуру и функцию нахождения nod 2
Показать ответ
Ответ:
Болыс111
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 оценок)
Популярные вопросы: Информатика
ovsjannikova20p01gvg
28.07.2022 06:57
Как выгледит число 116 в двоичном представлении...
ruslana80205
10.04.2022 19:18
марка автомобиля Жигули Москвич Mercedes Opel среднее общий пробег тыс.км 12 50 25 45 норма затрат 2.000 1800 3000 2500 всего затрат тыс.гри...
uliana20003
24.11.2020 05:12
1. Создать таблицу по образцу. 2. Отформатировать таблицу. 3. Построить круговую диаграмму «Общий пробег автомобилей» с указанием процентных долей каждого и столбиковую...
Takashu69
29.11.2021 21:23
Укажите правильную последовательность создания изображения...
Glek11
03.06.2021 05:32
2. Изучите листинг программы. import array as arr a = arr.array( i ) from random import randint size=20 S1=0 def printArray(array): for i in range(len(array)): print(array[i],...
synnjhcx
11.01.2022 00:44
Формализовать следующие высказывания...
chestnut3342
26.04.2023 18:56
Проверить, является ли формула тавтологией, противоречием или выполнимой!...
katrina7
26.01.2020 18:52
Процессор дегеніміз не?...
daniil0723
01.08.2022 18:16
Сочинение на на тему ислам в россии. долго название предмета писать...
serikon1
04.05.2023 07:36
При сжигании некоторого органического вещества массой 12,9 г был выделен газ, легко растворяющийся в воде и белый творожистый осадок массой 28,7 г при добавлении...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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;