[FPS]Padėkit su programa vyrai

reikia parasyti programa(nereikia nei proceduros nei funkcijos) kuri suskaiciuoja suma visu lyginiu skaiciu iki 97 imtinai.

Būčiau labai dėkingas,jei padėtumėt padaryti šitą programą, reikia pažymiui, o informatiką pasiėmiau tik dėl skaičiaus. Jei kas žinot ir galit ,padėkit :) Ačiū.

program Noname40;
var i, suma:integer;

begin
suma :=0;
   for i:=1 to 97 do
       if i mod 2 = 0 then suma := suma + i;
writeln(suma);
readln;
end.

Ačiū tau labai!

var      i : integer; suma : integer;
begin
	for  i := 1  to  97  do 
	begin
            if i mod 2 == 0 then suma := suma + i;
		i++; 
	end
end.

kazkas panasaus, nepamenu jau tiksliai, bet turetu veikt :)

Pasirodo reikia lyginius skaicius, tai reikia kazka pakeist...reikia kad suskaiciuotu LYGINIUS skaicius programoje.

suskaiciuotu ar atvaizduotu lyginius skaicius?

Pasirodo reikia lyginius skaicius, tai reikia kazka pakeist...reikia kad suskaiciuotu LYGINIUS skaicius programoje.

Suskaičiuoja skaičius:

program skaiciai;
var
 i,n : integer;
begin
n:=0;
for  i := 1  to  97  do
 begin
  if i mod 2 = 0 then n := n + 1;
 end;
writeln(n);
readln;
end.

Atvaizduoja skaičius:

program skaiciai;
var
 i : integer;
begin
for  i := 1  to  97  do
begin
if i mod 2 = 0 then writeln(i);
end;
readln;
end.

Neaišku kurio tau reik.

Čia kad šiek tiek gražiau spausdintų visus skaičius

program Noname40;
var i:integer;
begin
for i:=1 to 97 do
   begin
   if i mod 2 = 0 then
       begin
       if i mod 10 <> 0 then write(i:3)
                       else writeln(i:3);
       end;
   end;
readln;
end.

Labai ačiū už jūsų pagalbą, dabar jau turėtų tikt ;)

Manau jus cia visi apskaiciavot kiek yra lyginiu skaiciu nuo 1 iki 97 imtinai, o klausimas tai buvo: Kokia yra suma visu lyginiu skaiciu nuo 1 iki 97 imtinai, tai reiskia kad reik imt kiekviena lygini skaiciu ir pliusuot su kitu, tai turi but mazdaug taip: 2 + 4 + 6 +8 + 10 ir taip iki + 96. Jei neteisus pataisykit :) Tada manau turetu buti taip  

program Bevarde6;

var a, k : integer;
begin
k := 0;
    for a := 1 to 97 do
        begin
            if a mod 2 = 0 then
                k := k + a;
        end;
  writeln(k);
  readln;
end.

Bet dar noretusi paciam suzinot kaip galima gaut visu lygyniu skaiciu suma tarp visu lyginiu skaiciu skaiciu nuo 2 iki 96, tai reiskia jog man reik susumuot visus lyginius skaicius tarpusavy, bet be pasikartojimu, vat taip : (2+2) + (2+4) + (2+6) ir taip iki (2+96), poto 4+2 neimam iskart einam prie (4+6) + (4+8) nu ir t.t Paasikinau kaip galejau kitaip neiseis :D