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
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!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!