Padėkite su pascal uždaviniu

Sveiki, iškilo problema su keliais FPS uždaviniais, esu dar beveik žalias, gal galite padėti.

1) Parašykite algoritmą sumai 1 + 11 + 111 + ... + 111 1 apskaičiuoti.

n

2) Parašykite algoritmą sumai 1 •3 + 3 •5 + ... + n •(n + 2) apskaičiuoti, kai n – nelyginis natūralusis skaičius.

3) Parašykite algoritmą, kuris rastų keturių skritulių („senio besmegenio“) užimamą plotą. Pirmojo skritulio spindulys yra pradinis duomuo, o kiekvieno kito skritulio spindulys yra du kartus ilgesnis už prieš jį esančio skritulio spindulį

Iš anksto ačiū padėjusiems.

1)
ReadLn(n);
t:=1;
sum:=0;
for i:=1 to n do begin
      sum:=sum + t;
      t:=t * 10
end;
WriteLn(sum);
3)
plotas:=3.14 * ( sqr(r) +  sqr(r * 2) + sqr(r * 4) + sqr(r * 8) );  

1)
ReadLn(n);
t:=1;
sum:=0;
for i:=1 to n do begin
      sum:=sum + t;
      t:=t * 10
end;
WriteLn(sum);
3)
plotas:=3.14 * ( sqr(r) +  sqr(r * 2) + sqr(r * 4) + sqr(r * 8) );  

Dėkui už pastangas, bet kažko neveikia pirmoji programa :(

program suma;
var y,z,x,i : longint;
begin
 Readln(x);
 z := 1;
 for i:= 1 to x do
 begin
  y := y*10+1;
  z := z + y;
 end;
 Writeln(z);
end.

program suma;
var y,z,x,i : longint;
begin
 Readln(x);
 z := 1;
 for i:= 1 to x do
 begin
  y := y*10+1;
  z := z + y;
 end;
 Writeln(z);
end.

Dėkui

Dar gal kas šią parašys :

Parašykite algoritmą sumai 1 •3 + 3 •5 + ... + n •(n + 2) apskaičiuoti, kai n – nelyginis natūralusis skaičius.

Tai pasirašyk pagal pirmą. Nėra labai jau sunku, tik pamąstyk truputį. :)

Tai pasirašyk pagal pirmą. Nėra labai jau sunku, tik pamąstyk truputį. :)

Kai tik pradėjau kažką domėtis tai yra sudėtinga :) vėliau gal bus geriau

program antra_uzd;
var ats, n, i, tarpinis: integer;
begin
 Readln(n);
 ats := 0;
 tarpinis := 1;
 for i := 1 to n do
begin
       	ats := ats + (tarpinis * (tarpinis + 2));
       	tarpinis := tarpinis + 2;
end;
 Writeln(ats);
 Readln;
end.

1.
program pirma_uzduotis;
 var i, A, n : longint;
     suma : longint;
begin
 Readln(n);
 suma := 0;
 A := 1;
 for i := 1 to n do
       begin
       suma := suma + A;
       A := (A * 10) + 1;
       end;
 Writeln(suma);
 Readln;
end.

2.
program antra_uzduotis;
 var i, n, x : integer;
     suma, A : longint;
begin
 Readln(n);
 suma := 0;
 A := 1;
 for i := 1 to n do
       begin
       x := (A + 2) * A;
       suma := suma + x;
       A := A + 2;
       end;
 Writeln(suma);
 Readln;
end.

3.
program trecia_uzduotis;
const RS = 4;  //Keturi skrituliai
 var i, n : integer;
     plotas : real;
begin
 Readln(n);
 plotas := 0;
 for i := 1 to RS do
       begin
       plotas := plotas + ((n * n) * 3.14);
       n := n div 2;
       end;
 Writeln(plotas:0:2);
 Readln;
end.

Kad nereiktų kurti naujos temos, gal kas padės:

Apskaičiuokite sveikųjų skaičių masyvo elementų, kurie dalijasi iš 3, sumą.

Čia turėtų būti su masyvais.

Kad nereiktų kurti naujos temos, gal kas padės:

 

Apskaičiuokite sveikųjų skaičių masyvo elementų, kurie dalijasi iš 3, sumą.

 

Čia turėtų būti su masyvais.

k // masyvo narių skaičius

suma := 0;

for i := 1 to k do

if Masyvas[ i ] mod 3 = 0 then suma := suma + Masyvas[ i ]; // jei liekana 0 tada skaičiuoji jų sumą;