Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

на паскале составить программу нахождения наибольшего общего делителя трех чисел , испол. след. формулу: НОД(А,В,С)=НОД(НОД(А,В),С)

5-9 класс

MaksimDAD 11 марта 2017 г., 17:18:58 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Полька2803
11 марта 2017 г., 18:25:07 (7 лет назад)

function NOD (x,y:longint):longint;
begin
if x=0 then NOD:=y
else
if y=0 then NOD:=x
else
if x>y then NOD:=NOD(x mod y,y)
else
NOD:=NOD(x,y mod x);
end;

var
a,b,c:longint;
begin
read(a,b,c);
writeln('NOD (',a,',',b,',',c,') = ',NOD(NOD(a,b),c));
end.

Ответить

Другие вопросы из категории

Укажите, как организованы вложенные папки: по принадлежности, по назначению, по содержимому, по времени создания?

1) музыка, рисунки, тексты, фильмы
2) программы по математике, программы по информатике, программы по географии, игровые программы
3) работы Коли, работы Маши, работы Пети, работы Руслана
4) 2011 2012 2013 2010

ребят помогите кто может пожалуйста,вообщем я уже в 8 классе пора задумываться о дальнейшем будующем,хочу поступить на журналиста,кто что знает от

пишитесь,и пишите странну я живу в Казахстанеда и еще на корреспондента нужно отдельное образование или это одно и то же?

Читайте также

1)Составить программу нахождения суммы квадратов чисел от 25 до 125.

2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n

Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему.

ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!



Вы находитесь на странице вопроса "на паскале составить программу нахождения наибольшего общего делителя трех чисел , испол. след. формулу: НОД(А,В,С)=НОД(НОД(А,В),С)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.