Найти наибольший общий делитель чисел A, B, C,
5-9 класс
|
создав функцию для нахождения НОД двух натуральных чисел.
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.
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.
Другие вопросы из категории
Варианты
1) 32 Кбайта 2)512 бит 3) 64 бита 4)32 байта
неравенству y < z < x ?
1) 1111110012 2) 1111001112 3) 1101111002 4) 1101101112
Читайте также
Задания в pascal
1)Найти среднее арифметическое n чисел.
2)Является ли число простым.
3)Найти наибольший общий делитель двух чисел.
4)Спортсмен пробежал 10 км за 1 день,каждый следующий день пробегал на 10% больше,
сколько он пробежал за n дней.
5)Найти количество делителей у данного числа.
Решите буду очень признателен.
неправильно)помогите пожалуйста