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

• #2410 Ultimate csendes tag

  Új Válasz 2011-02-11 17:05:43 #2410

  Ú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

  

  Ultimate

  csendes tag

  Tudna segíteni valaki egy egyszerű for ciklusus programban?
  Az a feladat, hogy ki kell írni az első 50 páros szám összegét.

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

  Megcsinálná valaki, hogy jó legyen?

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