#include <iostream>
#include <cmath>
using namespace std;
int main() {
ios::sync_with_stdio(0);
cin.tie(0);
double b, res = 0;
cin >> b;
for (int i = 1; i <= b; i++)
{
res += 1/(pow(i,2));
}
cout<<res;
}
Как по мне - это идеальное решение, но жаль на C++)
Не забывай, что на этом сайте можно не только под Pascal прогать))
Если тебе нужно отправить файл этой проги в тестирующую систему, но у тебя нет C++, то можешь в комментарии написать свой vk, скину тебе cpp файл с кодом, а ты его в тестирующую систему пошлёшь)
var
i1,i2,i3 : Integer;
kk : Integer;
Chislo : Integer;
begin
Memo1.Clear;
kk := 0;
for i1 := 1 to 9 do
for i2 := 0 to 9 do
for i3 := 0 to 9 do
if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
if ( Frac((i1+i2+i3)/7)=0 ) then
begin
Chislo := i1*100 + i2*10 + i3;
if ( Frac(Chislo/7)=0 ) then
begin
Memo1.Lines.Append(inttostr(Chislo));
inc(kk);
end;
end;
end;