Помогите написать на Паскаль 1)сумма квадратов от 1 до N S=1+4+9+...n^2
Помогите написать на Паскаль
1)сумма квадратов от 1 до N
S=1+4+9+...n^2
Гость
Ответ(ы) на вопрос:
ГостьProgram programma;
Uses crt;
var n,s,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
write('S=');
for i:=1 to n-1 do
begin
s:=s+sqr(i);
write(sqr(i),'+');
end;
s:=s+sqr(n);
write(sqr(n),'=', s);
End.
Не нашли ответ?
Похожие вопросы