Тут ошибка. исправьте . program abc; var n,i: integer; s: real; begin readln(n); for i: =1 to n do s: =s+1/sqr(2*n+1); write(‘s= ‘, s); end. само . дано натуральное число n вычислить. s=1/3^2+1/5^2+1/7^2++1/(2n+1)^2
В Паскале есть стандартная функция Pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. С её данная задача решается очень просто.
var s:string; ip,iv:integer; begin Write('Введите строку: '); Readln(s); ip:=Pos('П',s); iv:=Pos('В',s); if ip*iv=0 then Writeln('П или В или обе не найдены в тексте') else if ip<iv then Writeln('П встретилось раньше В') else Writeln('В встретилось раньше П') end.
Тестовое решение: Введите строку: НА ЛУГУ ПАСЕТСЯ КОРОВА П встретилось раньше В
write(‘s= ‘, s);
вместо ‘ надо ставить '
program abc;
var
n, i: integer;
s: real;
begin
readln(n);
for i := 1 to n do
s := s + 1 / sqr(2 * i + 1);
write('s= ', s);
end.