ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 меньше = x меньше = 30000). Входные данные Вводится натуральное число x. Выходные данные Выведите наименьший делитель числа x,...
ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные
2
входные данные
6
выходные данные
2
Гость
Ответ(ы) на вопрос:
Гостьprogram n;
uses crt;
var i,x:integer;
begin
writeln('Введите число'); readln(x);
i:=2;
while (x mod i)<>0 do i:=i+1;
writeln(i);
end.
Не нашли ответ?
Похожие вопросы