Показать сообщение отдельно
Старый 20.01.2010, 23:13   #7 (permalink)
TaRaKaN
Member
 
Аватар для TaRaKaN
 
Регистрация: 25.02.2009
Сообщений: 81
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 180
По умолчанию

program ProstChisla
var N, i, a, j, x: integer
begin
clrscr;
writeln ("введите колличество необходимых простых чисел N=");
readln (N);
a:=3;
i:=3;
x:=0;
if N=0 do writeln ("простых чисел не найдено") else
if N=1 do writeln ("1") else
if N=2 do begin; writeln ("1"); writeln ("2"); end; else
writeln ("1");
writeln ("2");
while i<=N do
begin;
for j:=2 to a-1 do
if (a mod j<>0) then x:=x+1 else x:=x+0;
if x=0 then
begin;
writeln (a);
i:=i+1;
end;
a:=a+1;
end;
end.
TaRaKaN вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070