Задания.ру
Анонимно
2 часа назад

ПРОШУ ПОМОГИТЕ ОЧЕНЬ СРОЧНО
Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные

Ответ

Анонимно
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.

Новые вопросы по Информатике

Помогите решить. 1. В результате выполнения следующих операторов: a:=3; b:=4; x:=sqrt(sqr(a) +sqr(b); Write(' x= ' ,x, ' a+b=7 '); Writeln(a, b,'a', 'b'); Будет напечатано: Д) x= 5true 34ab E...
5 - 9 классы
2 минуты назад
Решите кроссворд срочно!!!
5 - 9 классы
4 минуты назад
В некотором каталоге хранится файл Задачи_по_программированию.tхt. В этом каталоге создали подкаталог и переместили в него файл Задачи_по_программированию.tхt. После этого полное имя файла стало D:...
5 - 9 классы
4 минуты назад
В алфавите 64 символа текст на 1024 таблицах по 512 символов сколько информации
10 - 11 классы
4 минуты назад
В алфавите 64 символа текст на 1024 таблицах по 512 символов сколько информации
10 - 11 классы
5 минут назад