• Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу for...to...do

Ответы 1

  • program gg;

    var i,n,k,sum:integer;

    a:array of integer[1..n];

    begin

    n:=10;

    sum:=0;

    readln(a[i]);

    for i:=1 to n do

    k:=a[i]*a[i];

    sum:=sum+k;

    writeln('summa=',sum);

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years