Информатика, опубликовано 2018-08-22 18:07:40 by Гость
Напишите программу в паскале, вычисляющую НОД для 5 чисел (12,24,30,36,48)
Ответ оставил Гость
//Pascal ABC.NET v3.1 сборка 1219
function nod(a, b:integer):integer;
begin
while a*b0 do
if a>b then
a:=a mod b
else b:=b mod a;
nod:=a+b;
end;
begin
writeln(nod(12,nod(24,nod(30,nod(36,48)))));
end.
Вывод: 6
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на