Programalama > PASCAL

Etiketler: asal, sayilari, bulan, program

Ort. 0
Puan ver:
uses  crt;
var
s,i,f,min,a:integer;
t:char;
k:array[1..100] of integer;
begin
min:=4;
k[1]:=1;
k[2]:=2;
k[3]:=3;


s:=3;

for i:=1 to 100   DO

for a:=min to min+10 do
begin

for f:=1 to s do

if a mod k[f] <> 0 then begin s:=s+1;   k[s]:=a; end;

end;
min:=min+10;
clrscr;
Write('asal sayilar bulundu(g&#8221;r&#129;nt&#129;lemek i&#8225;in bir tusa basiniz');
t:=readkey;
for i:=1 to s do
writeln(k[s]);

readln;
end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.