Условие задачи
Используя три различных цикла, определить значение суммы:
Ответ
Текст программы:
Program task_3;
uses crt;
var s:real;
n;k:integer;
begin
clrscr;
write(Vvedite k ); readln(k);
writeln (FOR:);
s:=0;
for n:=1 to k do
begin
s:=s+sqr(n+1);
end;
writeln(Summa=,s:0:3...