найдите самый маленький натуральный делитель числа x, отличный от 1 (2 < = x < = 30000). входные данные вводится натуральное число x. выходные данные выведите наименьший делитель числа x, отличный от 1. примеры входные данные 2 выходные данные

vladugan vladugan    1   15.07.2019 14:30    3

Ответы
777ppp777 777ppp777  03.10.2020 04:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика