Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
smalik8
13.07.2022 23:59 •
Информатика
Чтобы найти наибольший общий делитель постройте программу используя эту формулу : нод(а,b,c)=нод(нод(а, через программу паскаль) program=evklid
Показать ответ
Ответ:
bviktoria4567
06.07.2020 16:50
Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kiakev
22.10.2021 17:03
1. определите значение переменной а после исполнения данного алгоритма: a: =6 b: =a/3+1 b: =a/b*2 a: =b*2-a 2. определите значение переменной b после исполнения данного алгоритма:...
yoruhoshi
05.12.2020 17:23
По информатике: 1)у одного племени в алфавите 24 буквы и 8 цифр. знаков препинания и арифметических знаков нет. какое минимальное количество двоичных разрядов им необходимо для...
P1wHeNS
05.12.2020 17:23
Дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. опишите на одном из языков программирования алгоритм,...
pocemonpickachu
07.08.2020 19:04
Найти произведение чисел введеных с клавиатуры, пока не будет введен 0...
ZVERO9S4R
07.08.2020 19:04
Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с чётными значениями...
хава993
07.08.2020 19:04
Представьте себе, что вы проектируете сайт своей школы. какую информацию вы бы поместили на главной странице?...
ivan111111
31.01.2021 04:05
Определите норму выработки в смену: а) на кошение трав агрегатом МТЗ-82 и КТП-6 при следующих условиях: рабочая скорость агрегата равна 6300 м/ч; время основной работы составляет...
gulitenko
20.09.2021 23:56
На квадрате с периметром 92 см нарисован круг. Рассчитайте радиус круга....
орпасм
18.05.2022 04:17
1) В центр статистических исследований поступаетинформация из трех пунктов: с первого – 50%, со второго – 30%, с третьего – 20%всей информации. Вероятность допустить ошибку при...
Raul020507
18.05.2022 04:17
іііііііііть пліііііііііс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
end.