Дано число.определить является ли оно простым. программа на паскале. напишите через while или repeat.заранее )

Var n,i: integer;
begin
 write('Введите целое число = ');
 readln(n);
 i:=2;
 while (n mod i <> 0) do i:=i+1;
 if i=n then writeln('Число ',n,' простое')
        else writeln('Число ',n,' не простое');
end.

Ультразвуковой датчик-это специальный инструмент, используемый для измерений в промышленной автоматизации. С его можно измерять расстояние, высоту и уровень, а также определять положение в пространстве, обнаруживать наличие объектов и даже подсчитывать их по отдельности.
Ультразвуковые датчики содержат ультразвуковые преобразователи . Преобразователь может преобразовывать одну форму энергии в другую. Датчик является причиной, по которой датчик может излучать звуковой импульс. Затем создается эхо, когда излучаемый импульс отражается от объекта.

Вирус. Вполне возможно, что ваш компьютер заражен вирусом, ведь это одно из частых объяснений почти всех проблем. Но как он мог оказаться на моем компьютере, если есть антивирус? А давно ли вы обновляли его базы? Может быть, они уже потеряли актуальность.

Программы, пожирающие трафик. Компьютер после подключения к интернету может начать тормозить потому, что множество программ начинают качать обновления. Происходит это довольно часто, а одновременная нагрузка сказывается на производительности.

Обновление драйверов. Бывали и такие случаи, когда «тормоза» после подключения появлялись из-за автоматического обновления драйверов, которые были несовместимы и конфликтовали друг с другом.

Проблемы с ОС. После заражения системы, внесения различных изменений и прочих действий, вполне возможно, что у вас появились проблемы с операционной системой. Даже ошибки в одном системном файле могут стать причиной медленной работы.

Если у вас тормозит компьютер после подключения к интернету, попробуйте отключить планировщик пакетов QoS, в некоторых случаях это полностью решить проблему.