Pereiti prie turinio

Gal galite padeti su paskaliu?


Rekomenduojami pranešimai

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.

Redagavo topsis000
Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Š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

Redagavo apieviska
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Š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 ;)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...