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

• #9074 Zola007 veterán Karma #9072

  Új Válasz 2015-10-10 20:24:52 #9074

  Ú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

  

  Zola007

  veterán

  válasz Karma #9072 üzenetére

  Köszönöm,próbáltam így is, de nekem így se jön ki.
  ha mondjuk azt mondom neki, hogy az első 5 párosat adja össze, akkor 6-ot dob eredménynek.
  így nézett ki a B-verzió. Viszont ugye itt feleannyit ciklust fut, mint amennyi számot kérek összeadni, páratlannál még annyit sem. Vagy elírták a feladatot és nem azt akarták vele, hogy az első hány, hanem melyik páros számig adja össze az előtte lévőket:
  program gyakorlo_47b;
  uses crt;
  var a,b,x:integer;
  begin
  clrscr;
  write('Az első hány db páros számot adjam össze?: ');
  readln(a);
  b:=0;
  for x:=1 to a div 2 do b:=b+2*x;
  write('Az első ',a,'db páros szám összege: ',b);
  writeln;
  end.
  Tudtommal a változók alapértéke mindig 0, ha ez megfelel a program induló értékének, akkor nem kell definiálni.

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