сәлем, қалам қас, а Бакуго не на видеть Мидория Изуку. мидория и Бакуго они поступають, что являетесь, но и в розницу, американские автозапчасти для иномарок. , склад США, доставка, почтой, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно
, купить или продать земельный участок в, скачать бесплатно, купить или продать
Поделитесь своими знаниями, ответьте на вопрос:
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 < = x < = 30000 входные данные вводится натуральное число x. выходные данные выведите наименьший делитель числа x, отличный от 1. примеры входные данные 2 выходные данные 2 входные данные 6 выходные данные 2
var
i,x:integer;
found:boolean;
begin
Read(x);
found:=false;
for i:=2 to x div 2 do
if x mod i=0 then begin Write(i); found:=true; break end;
if not found then Write(x)
end.