Жай сандарды шығару программасын құру Паскаль тілінде?

Question

Жай сандарды шығару программасын Паскаль тілінде құру керек еді,,, шамам жетпей жатыр!!!(headbang)

Answer 1

сұрақты толығырақ айтшы!!!!а то тусінбей турмын!паскаль тілін оте жаксы білем ,сурагынды тусінбедім

Comments

const LIMIT = 500;
var i,j,lim : word;
begin
  writeln;
  for i:=1 to LIMIT do
 begin
   j:=2;
   lim:=round(sqrt(i));
   while (i mod j <> 0) and (j <= lim) do inc( j );
   if (j > lim) then write( i,' ' );
  end;
end.
бұл 500 санына дейін

Кобланды 7.10.2011 пікір

---

Коп коп рахмет бауырым!!! Алланың нұры жаусын саған!!! Есеп тура шықты!!!

ZHaN_IK 7.10.2011 пікір

---

оқасы жоқ!!!көмек керек болса сурап тұр!!

Кобланды 7.10.2011 пікір

---

1 1 2 3 5 8 13 21 34 55....... осылай Фибоначчи есебі кете береді. Осының программасын құра аласыңба? СРСПға!!!!(talk)

ZHaN_IK 7.10.2011 пікір

---

var
    a,b,c,i,n: integer;
begin
    write('n = ');
    readln( n );
 
    a := 0;
    write(a,' ');
    b := 1;
    write(b,' ');
    for i:=3 to n do begin
        write(a+b,' ');
        c := b;
        b := a + b;
        a := c
    end;
 
readln
end. міне осылай шығар

Кобланды 10.10.2011 пікір

---

бауырлар сендерге 9 класстагы олимпиададагы есептер естеринде болса бериндерш киру шыгу файлдары бар есептер бир есеппен шыгарылу улгиси болса ертен олимпиада еди комек керек

акниет_жаксыгали 7.11.2011 пікір

---

Бауырым,көмектесші өтінемін!

Қабырғасы а-ға теғ кубтың көлемі нешеге тең екендігін есептейтін бағдарлама құр.

және

Берілген үш санның көбейтіндісін және қосындысын есептеп,қайсысы үлкен екендігін тап

 Жауап берсең көп-көп рақмет,алла жар болсын

seitiskhanov 19.12.2017 пікір

Answer 2

var n,i,j:integer; b:boolean;
Begin
write('n сaнын енгiз -'); read( n );
writeln('n санына дейінгі жай сандар...');
for i:=1 to n do
begin b:=true;
for j:=2 to i-1 do
if i mod j =0 then begin b:=false; break; end;
if b then write(' ',i);
end;
End.

Answer 3

мына программалар дұрыс болғанымен, ең тиімді жол емес
[ең дұрысы-осы!!!!!][1]


  [1]: http://www.e-maxx.ru/algo/eratosthenes_sieve

Comments

var n,k,i,ii,q:longint;
    f:boolean;
    a:array[0..1000] of longint;
begin
  readln(n);
  a[1]:=2;
  a[2]:=3 ;
  q:=2;
  for i:=5 to n do
  begin
    k:=0;
    ii:=trunc(sqrt(i));
    f:=true;
    while a[k]<ii do
      if i mod a[k]=0 then begin f:=false; break;end;
    if f=true then begin inc(q); a[q]:=i;end;
  end;
end.

UPi 26.12.2011 пікір

Answer 4

Мен программа құруды үйренейін деп едім көмектесе аласыздарма