Új hozzászólás Aktív témák

• #2374 borsodika őstag Gyuri16 #2373

  Új Válasz 2010-06-03 21:00:36 #2374

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  borsodika

  őstag

  válasz Gyuri16 #2373 üzenetére

  Az első valamennyire megvan de sajnos a write-okat nem tudom hol helyezzem el és még tuti más hiba is lesz, előre is köszönöm a segítséget

  Program kodolas;
  uses crt;
  var b,i,j:integer;
  Begin
  i:=1 to n do;
  b(i)=false;
  Writeln b(i)
  End;
  Begin
  i:=1 to n do;
  j:=0;
  j+i<=n
  j:=j+i
  b(i):=(b(j))
  End;
  Begin
  i:=1 to n do;
  if b(i) then KI(i:4)
  End;
  End.

Új hozzászólás Aktív témák