Определение количества простых чисел

Определение количества простых чисел

Исходник маленькой программы для Паскаль, которая определяет кол-во простых чисел среди введённых. Скачать исходник и посмотреть исходный код можно в полной новости.

Исходный код программы:

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
Автор: Zed от 2012-03-17 18:29:08   Просмотров: 3333

Теги: Паскаль исходник Pascal циклы WHILE FOR