208 158 208 189 208 176 32 208 145 208 190 208 187 209 140 208 189 208 176 32 208 165 208 176 208 189 - id1049956620220901 от Офелия12345 01.09.2022 00:55

Question

Информатика: 208 158 208 189 208 176 32 208 145 208 190 208 187 209 140 208 189 208 176 32 208 165 208 176 208 189 208 176 209 133 208 176 208 186 208 184 32 208 152 32 208 173 209 130 208 190 32 208 157 208 181 32 208 152 208 183 208 187 208 181 209 135 208 184 208 188 208 190 расшифруйте (utf-8 вроде)

Офелия12345 · Accepted Answer

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
    s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.

MOGZ ответил