Предмет: Информатика,
автор: physFox
Дано целое число N(>0). Найти сумму (1+2)^2+(2+3)^2+...+(N+(N+1))^2
Написать программу для Pascal
Ответы
Автор ответа:
0
program xxx;
var N, Sum: integer;
var i: byte;
begin
writeln ('введите N');
readln (N);
Sum:=0;
for i:=1 to N do begin
Sum:=Sum+sqr(i+(i+1))
end;
writeln (Sum)
end.
var N, Sum: integer;
var i: byte;
begin
writeln ('введите N');
readln (N);
Sum:=0;
for i:=1 to N do begin
Sum:=Sum+sqr(i+(i+1))
end;
writeln (Sum)
end.
Похожие вопросы
Предмет: Химия,
автор: bbyblond
Предмет: Геометрия,
автор: zhenyaboiko215
Предмет: Английский язык,
автор: sasha7674
Предмет: Математика,
автор: глиста