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

• #9070 Zola007 veterán Jim Tonic #9069

  Új Válasz 2015-10-10 19:14:20 #9070

  Ú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 Jim Tonic #9069 üzenetére

  8 év alatt láttam már 1-2 dolgot a PH-n és más fórumokon, és ha valaki ilyet kér és tudok segíteni, akkor ráírok szívesen. Ilyen erővel akár rám is írhattál volna. Ez egyéni hozzáállás kérdése, de parancsolj
  Köszönöm annak aki segít:

  (1) Készítsünk programot, amely kiszámolja az első N drb. páros szám összegét. (A ciklus 1-től N div 2-ig menjen, majd a ciklusmagban vegyük a számok kétszeresét.)

  Megoldom a lenti módon egyszerűen is, viszont a feladatban kért ciklus 1-től N div 2-ig dolgot nem tudom bele implementálni:

  program gyakorlo_47;
  uses crt;
  var a,b,x:integer;
  begin
  clrscr;
  write('Az első hány db páros számot adjam össze?: ');
  readln(a);
  for x:=1 to a do b:=b+2*x;
  write('Az első ',a,'db páros szám összege: ',b);
  writeln;
  end.

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