for to do паскаль

Ответ от Krab Bark[гуру]
Когда надо что-то перебрать, используется цикл. Вот и все.
program easy;
var i,j:integer; b:boolean;
begin
readln(i); b:=true;
for j:=2 to trunc(sqrt(i+1)) do if i mod j=0 then begin b:=false; break end;
writeln(b); readln
end.
Проверка может показаться сложноватой. Поясню: достаточно проверять делители до квадратного корня из проверяемого числа.
Krab Bark
Искусственный Интеллект
(190008)
break прерывает выполнение цикла. Можно без нее. Просто выкинь ее. Тогда просто цикл будет прокпучиваться до конца, даже если все стало ясно еще раньше. Результат будет тот же, просто программа будет выплняться дольше.