Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
4. Условный оператор
Эти три задачи объединяет одно: здесь нельзя просто так составить программу на Паскале, чтобы задача решалась «одним махом» – из-за наличия определенных условий. Поэтому в таких случаях на помощь приходит условный оператор, который распределяет выполнение операторов в зависимости от условий.
1 дискета
2cd rom
3 dvd rom
4 флеш
5 жесткий диск
S:=a*b все просто
a-длина прямоугольника
b-ширина прямоугольника
См. решение во вложении. Всего возможно три варианта