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

karapetyanhovn1 karapetyanhovn1    2   11.08.2019 20:50    4

Ответы
узбек2004 узбек2004  04.10.2020 12:02
Var
    i: integer;
    s: longint;

begin
    s := 0;
    for i := 1 to 100 do
        s := s + i * i;
    writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика