Описать

функцию Del (X), находящую

наибольший целый делитель натурального числа Х.

Question

Информатика

Ольда

28 мая, 21:18

Описать

функцию Del (X), находящую

наибольший целый делитель натурального числа Х.

+5

Ответы (1)

Знаете ответ на вопрос?

Федяка · Answer 1

Видимо, " наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 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.

Описатьфункцию Del (X), находящуюнаибольший целый делитель натурального числа Х.

Описать

функцию Del (X), находящую

наибольший целый делитель натурального числа Х.