Предмет: Информатика,
автор: fyyllleeemuw
ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные
Ответы
Автор ответа:
0
var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
end.
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
end.
Автор ответа:
0
если ты её не писал в var
Интересные вопросы
Предмет: Математика,
автор: ulanap446
Предмет: Русский язык,
автор: d275874
Предмет: Французский язык,
автор: alicelife5
Предмет: Литература,
автор: se142