Предмет: Информатика,
автор: poltorachenko98
Описать
функцию Del(X), находящую
наибольший целый делитель натурального числа Х.
Ответы
Автор ответа:
0
Видимо, "наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)
var x, i, max:integer;
function Del(x:integer):integer;
begin
for i := 1 to x div 2 do
begin
if x mod i = 0
then
max := i;
end;
del := max;
end;
begin
read(x);
writeln(Del(x));
end.
var x, i, max:integer;
function Del(x:integer):integer;
begin
for i := 1 to x div 2 do
begin
if x mod i = 0
then
max := i;
end;
del := max;
end;
begin
read(x);
writeln(Del(x));
end.
Интересные вопросы
Предмет: Обществознание,
автор: ugar8271
Предмет: Математика,
автор: alieksieikalianov
Предмет: Химия,
автор: sone4ka0405gyu
Предмет: Биология,
автор: 5625
Предмет: Геометрия,
автор: Tany6a