найти сумму квадратов всех натуральных чисел от 1 до 100. Created by Ane4ka11022001. informatika-ru

найти сумму квадратов всех натуральных чисел от 1 до 100...

November 2021 1 28 Report

найти сумму квадратов всех натуральных чисел от 1 до 100

Aillianna

Var
    i: integer;
    s: longint;

begin
    s := 0;
    for i := 1 to 100 do
        s := s + i * i;
    writeln(s);
end.

1 votes Thanks 0