нужно сдать до завтра

Составить программу для вычисления выражения 1^2+2^2+3^2+...+10^2

Question

Информатика: нужно сдать до завтра Составить программу для вычисления выражения 1^2+2^2+3^2+...+10^2

natka73 · Accepted Answer

{1}

var
a,k,s: integer;
begin
read(a);
k := 0; s := 0;
while a mod 2 <> 0 do
    begin
    if abs(a) mod 10 > 5 then
      s := s + a;
    a := abs(a);
    if (a > 9) and (a < 100) then
      k := k + 1;
    read(a);
    end;
writeln('k=',k,', s=',s)
end.

{2}

var
n,i,p,a: integer;
begin
read(n);
p := 1;
for i := 1 to n do
    begin
    read(a);
    if (a > 0) and (a mod 3 = 0) then
      p := p * a;
    end;
writeln('p=',p)
end.

{3}

var
n,a,i,k,s: integer;
begin
read(n);
k := 0; s := 0;
for i := 1 to n do
    begin
    read(a);
    if a > 0 then
      begin
      s := s + a;
      k := k + 1;
      end;
    end;
if k = 0 then k := 1;
writeln('s=',s/k)
end.

нужно сдать до завтра Составить программу для вычисления выражения 1^2+2^2+3^2+...+10^2

MOGZ ответил

нужно сдать до завтра

Составить программу для вычисления выражения 1^2+2^2+3^2+...+10^2