Исходник маленькой программы для Паскаль, которая определяет кол-во простых чисел среди введённых. Скачать исходник и посмотреть исходный код можно в полной новости.
Исходный код программы:
var
n,i,q: integer;
f: boolean;
begin
q:=0;
write('Number: ');
readln(n);
while n > 2 do begin
f:=true;
for i:=2 to n div 2 do
if n mod i = 0 then
f:=false;
if f then
q:=q+1;
write('Number: ');
readln(n);
end;
writeln(q,' prime numbers');
readln;
end.Скачать исходник:kolprost.pas