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

• #849 berkine csendes tag gaben #1

  Új Válasz 2005-12-13 07:07:10 #849

  Ú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

  

  berkine

  csendes tag

  válasz gaben #1 üzenetére

  Szia!
  Találtam pár hibat, ugyhogy irom az egészet ujra :
  
  program elso;
  uses crt;
  var szam:integer;
  begin
  clrscr;
  readln(szam);
  if szam mod 2=0 then
  writeln( 'paros')
  else writeln( 'paratlan');
  readln;
  end.
  
  Üdv: berkine

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