Паскаль. Найти сумму произведений последовательности чисел S:=1*1+2*2+3*3+4*4...n*n. n введите с клавиатуры.
Паскаль. Найти сумму произведений последовательности чисел S:=1*1+2*2+3*3+4*4...n*n. n введите с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гостьprogram E05;
uses crt;
var
n,S,i: integer;
begin
clrscr;
writeln('Введите n: ');
readln(n);
for i:=1 to n do
S:=S+i*i;
writeln('Ответ: ',S);
end.
Не нашли ответ?
Похожие вопросы