Паскаль. задача с помощью FOR TO DO

[Маринуська]

С помощью FOR TO DO или других простых!
1.Вычислить сумму квадратов всех элементов числовой последовательности, за искулючением элементов кратных пяти.
2.В задданой последоватеьности чисел определите колиество элементов,котрые меньше заданного значения.
3.Дано натуральное число N.опредеоить является ли оно простым.

[Tayfun]

1.

 
program zad1;
uses crt;
const max_n=100;
var
p:array[1..max_n] of integer;
s,i,n:integer;
begin
clrscr;
Writeln('VVEDITE KOLICHESTVO ELLEMENTOV');
readln(n);
for i:=1 to n do begin
p[i]:=random(10)-5;
write(p[i],' ');
end;
for i:=1 to n do
if p[i] mod 5<>0 then s:=s+sqr(p[i]);
writeln('SUMMA=',s);
readkey;
end.

[Tayfun]

2.

 
program zad2;
uses crt;
const max_n=100;
var
p:array[1..max_n] of integer;
t,s,i,n:integer;
begin
clrscr;
Writeln('VVEDITE KOLICHESTVO ELLEMENTOV');
readln(n);
for i:=1 to n do begin
p[i]:=random(10)-5;
write(p[i],' ');
end;
writeln;
writeln('VVEDITE CHISLO');
readln(t);
for i:=1 to n do
if p[i] <t then s:=s+1;
writeln('KOLICHESTVO=',s);
readkey;
end.

[Tayfun]

3.

 
program zad3;
uses crt;
var
i,p,n:integer;
begin
clrscr;
writeln('VVEDITE CHISLO');
readln(n);
for i:=1 to n do
if n mod i=0 then p:=p+1;
 
if p<=2 then writeln('CHISLO PROSTOYE') else writeln('CHISLO SOSTAVNOYE');
readkey;
end.

[puporev]

Задача 3. В строке
if n mod i (?)then p:=p+1; пропущено "=0"

[pascal65536]

Задача 3
Не обязательно проверять все числа от 0 до N, достаточно проверить от 0 до sqrt(N). Так цикл короче получится и программа быстрее работать будет.

[Tayfun]

Задача 3
Не обязательно проверять все числа от 0 до N, достаточно проверить от 0 до sqrt(N). Так цикл короче получится и программа быстрее работать будет.

Согласен! Так оно и есть

[puporev]

Насколько короче будет цикл? И насколько быстрее будет работать твоя программа?