Gal galite padeti su paskaliu?

Parasykite algoritma sumai 1x3+3x5+....+n x(n+2) apskaiciuoti, kai n - nelyginis naturalusis skaicius. (x - daugybos zenklas)

Turetu buti kazkas panasaus i sita :) Aciu, kas parasys!

program algoritmas;

var S, n, d, i :longint;

begin

WriteLn('Iveskite n');

WriteLn;

Readln(n);

WriteLn;

S:= 0;

d:= 1;

for i:= 1 to n do begin

S:= S + d;

d:= d * 10+1

end;

WriteLn;

WriteLn ('Suma = ', S);

WriteLn;

ReadLn;

end.

iki begalibes cia ar yra kazkoks limitas?

a, pamačiu.

iki begalibes cia ar yra kazkoks limitas?

 

a, pamačiu.

Salyga visa parasiau, apie limita nieko neraso :)

program Noname2;
var x,a,b,i,result:longint;
begin
 WriteLn('iveskite skaiciu!');
 Readln(x);
 //1x3+3x5+....+n x(n+2)
 for i:= 1 to x do
   begin
       if(i mod 2 <> 0) then
           begin
               result:=result+(i+(i+2));
           end;
   end;
   writeln(result);
 readln;
end.

biski klaidu yra, toi pataisisiu.

prie to pacio gal zinote, isirasiau paskali ir lazarus , bet beda tame , kad programos kalba yra lietuviu , o man reikia anglu , gal kas mokate pakeisti ? :) lauksiu atsakymo

taip, as valgyti, jai nekas nepades, atejas damusiu

Štai, prašau

program Noname2;
var x,a,i,result:longint;
begin
 WriteLn('iveskite skaiciu!');
 Readln(x);
 //1x3+3x5+....+n x(n+2)
 a:=1;
 for i:= 1 to x do
   begin
   result:=result+(a*(a+2));
   a:=a+2;
   end;
   writeln(result);
 readln;
end.

prie to pacio gal zinote, isirasiau paskali ir lazarus , bet beda tame , kad programos kalba yra lietuviu , o man reikia anglu , gal kas mokate pakeisti ? :) lauksiu atsakymo

Environment/Desktop settings

Štai, prašau

 

program Noname2;
var x,a,i,result:longint;
begin
 WriteLn('iveskite skaiciu!');
 Readln(x);
 //1x3+3x5+....+n x(n+2)
 a:=1;
 for i:= 1 to x do
   begin
   result:=result+(a*(a+2));
   a:=a+2;
   end;
   writeln(result);
 readln;
end.

 

 

 

Environment/Desktop settings

labai aciu ;)