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

• #2418 heihachi addikt Ultimate #2410

  Új Válasz 2011-02-12 10:48:01 #2418

  Ú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

  

  heihachi

  addikt

  válasz Ultimate #2410 üzenetére

  program otvenparos;
  uses crt;
  var
  i : integer;
  o : integer;
  begin
  clrscr;
  o := 0;
  for i := 1 to 50 do o:= o+2*i;
  writeln('Az elso otven paros szam osszege: ', o);
  end.

• #2411 RedSign tag Ultimate #2410

  Új Válasz 2011-02-12 07:09:01 #2411

  Ú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

  

  RedSign

  tag

  válasz Ultimate #2410 üzenetére

  Régen volt már a TP, de szerintem valami hasonló (tesztelve nincsen, ha hibás valaki javítsa, köszönöm!):

  program paros;
  uses crt;
  var i,j,osszeg: integer;
  begin
  clrscr;
  writeln('Az első 50 páros szám:');
  i=1;
  j=1;
  while i<50 do
  begin
  if j mos 2=0 then osszeg:=osszeg+j;
  j:=j+1;
  end;
  gotoxy(1,7);
  writeln('Összegük:');
  writeln(osszeg);
  readln;
  end;
  end.

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