Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
НАТАШАПРОСТОКВАША
05.05.2022 19:11 •
Информатика
Чтобы найти наибольший общий делитель постройте программу используя эту формулу : нод(а,b,c)=нод(нод(а, через программу паскаль) program=evklid
Показать ответ
Ответ:
mar244144
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 оценок)
Популярные вопросы: Информатика
danilabelinovp08mj9
03.10.2022 16:40
В книге 64 страницы. На каждой странице 1024 символа. Какой объём информации (в Кбайтах) содержится в книге, если используемый алфавит состоит из 128 символов? ...
charaX
07.03.2020 22:26
ответы на бобер 2020 можно?...
Tomiriszharasbaeva
25.10.2022 21:50
Отдели имена файлов от имен папок: Lettet.txt, Book, List.doc, 2012 год,Windows.jpg, Windows, Dom.doc...
hanabi7suzuha
21.12.2021 09:21
В самом начале эксперимента у вас есть одна бактерия. Она делится каждую минуту таким образом, что из одной получается 3. Через сколько минут у вас будет более 100 бактерий?...
dilyahashimova
04.04.2022 23:48
10 плюсов и 10 минусов беспроводных сетей....
tatstryukova
21.01.2023 19:08
Мини сочинение Самая интерсная с точки зрения информатики профессия...
Ychenik2525
10.01.2022 08:40
с заданиями по информатике...
Семрал
26.12.2020 13:34
Складіть програму для розв язування задачі. Потрібно обклеїти шпалерами стіну довжиною а м і шири-ною b м. Скільки коштуватимуть шпалери, якщо ціна одногорулону k грн?...
Garri14
21.03.2023 20:21
Краткий конспект по информатике 7 класс параграф 2.4 Л. Л. Босова А. Ю. БОСОВА...
alinayusupova305
13.11.2020 11:01
Компьютер Толи может начать ретрансляцию данных не раньше, чем им будут получены первые 512 Кбайт этих данных. Каков минимально возможный промежуток времени (в секундах)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.