Описать
функцию Del(X), находящую
наибольший целый делитель натурального числа Х.
Ответы на вопрос
Ответил fasalv
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.
Новые вопросы
Русский язык,
2 года назад
Қазақ тiлi,
2 года назад
Физика,
9 лет назад
Литература,
9 лет назад
Физика,
9 лет назад