Информатика, опубликовано 2018-08-22 21:55:36 by Гость
Дано целое число N(>0). Найти сумму (1+2)^2+(2+3)^2+...+(N+(N+1))^2 Написать программу для Pascal
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.