Kezdőoldal » Számítástechnika » Programozás » Miért nem működik? Azt szeretn...

Miért nem működik? Azt szeretném, hogy az n bekért számig írja ki a prím számokat, de valamiért az elsőig irja csak.

Figyelt kérdés

program Project36primszam;


{$APPTYPE CONSOLE}


uses

SysUtils;


var szam, oszto, n,i:integer;

kilep: boolean ;


begin


Writeln('Meddig írjam ki a prímszámokat');Readln(n);

i:=1;

szam:=1;


Repeat


kilep:=false;

oszto:=2;


While (not kilep) and (oszto<=szam div 2) Do if szam mod oszto=0 then kilep:=true else Inc(oszto);


if kilep=false then

begin

Write (' ',szam);

Writeln;

Inc(i)

end;

Inc(szam);


Until i<n;

Readln;


end.


2014. márc. 20. 17:10
 1/1 anonim ***** válasza:
emlékeim szerint pascalban begin-end közé kell rakni az utasításokat, és úgy lesz egy blokk
2014. márc. 20. 17:53
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!