Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
almightybarbara
19.04.2023 08:30 •
Информатика
Найти наибольший общий делитель чисел a, b, c, создав функцию для нахождения нод двух натуральных чисел.
Показать ответ
Ответ:
Даша6741
07.07.2020 19:20
Program NOD(output);
function nod (a1, a2: integer): integer;
begin
nod:=abs (a1 mod a2);
writeln(#7);
nod (a1, a2);
end;
var a, b, c, d: integer;
begin
readln (a, b, c);
d:=nod(nod(a, b), c);
writeln(d);
readln;
end.
0,0
(0 оценок)
Ответ:
кукушка137
07.07.2020 19:20
Var a,b,c,d :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
writeln('Введите а, b, c');
readln(a,b,c);
d:=NOD(a,b);
d:=NOD(d,c);
writeln('НОД = ',d);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
незнайка1187
26.08.2020 21:00
нужна программа на С ++ Найти количество натуральных трехзначных чисел, состоящих из трех разных цифр, но содержат 0 можно код или словесный алгоритм (блок-схему)...
AnastasiaHCWP
20.03.2022 14:57
Запишите по правилам языка Python выражение:x^2+y^2/1-y/2...
bogdan975
14.11.2022 07:53
Кто шарит на С написать через цикл For...
DariaDosh
01.06.2020 15:12
Какая форма представления алгоритма приготовления мороженого полуфабриката предпочтительна для массового покупателя?...
злючка26
10.12.2020 00:08
Что не так с кодом?#include iostream using namespace std;int main() {}float a, b;cin a, b;int sum, min, umn, del, ost;sum=a+b;min=a-b;umn=a*b;del=a/b;ost=a%b;cout a + b = sum...
KirikRu
30.12.2022 07:36
Для хранения растрового изображения размером 134х134 пикселей отвели 4КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
kosorotovslavik
01.02.2022 17:46
музыка 5 класс стих придумать не могу...
Nasya156
27.08.2022 06:18
Найди числовое значение многочлена, предварительно упростив его: c22rc−2r2r2c, если r=12,c=−3. (ответ и промежуточные вычисления округли до сотых.) дам...
snizhanadob
22.08.2020 12:29
4 -апсырма. Жұптық жұмыс. Суретке тақырып қойып, Табиғат-ананы сақтау туралы шағын мәтін құраңдар. Мәтінде өздік, белгісіздік, Сыздық, жалпылау есімдіктерін пайдалан. Што-б...
Lolilolokigh
08.12.2022 05:36
2. Подбери антонимы в словосочетаниях и запиши. Опреде главное и зависимое слова. Поставь от главного слова вопрос. Определи склонение имён существительных. чего? .. - ......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function nod (a1, a2: integer): integer;
begin
nod:=abs (a1 mod a2);
writeln(#7);
nod (a1, a2);
end;
var a, b, c, d: integer;
begin
readln (a, b, c);
d:=nod(nod(a, b), c);
writeln(d);
readln;
end.
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
writeln('Введите а, b, c');
readln(a,b,c);
d:=NOD(a,b);
d:=NOD(d,c);
writeln('НОД = ',d);
end.