1. Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр. 2. Сумма цифр данного трехзначного числа N является четным числом.
3. Точка с координатами (х,у) принадлежит части плоскости, лежащей между прямыми х=m, x=n (m 4. Треугольник со сторонами a, b, c является равнобедренным.
5. Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади.
6. Данная тройка натуральных чисел a ,b, c является тройкой Пифагора, т.е. .
7. Все цифры данного четырехзначного числа N различны.
8. Данные числа х, у являются координатами точки, лежащей в первой координатной четверти.
9. Число с является средним арифметическим чисел а и b.
10. Цифры данного трехзначного числа N являются членами арифметической прогрессии.
11. Цифры данного трехзначного числа N являются членами геометрической прогрессии.
12. Сумма двух последних цифр заданного трехзначного числа N меньше заданного числа К, а первая цифра больше 5.
13. Х – отрицательное число, делящееся на К нацело.
14. Прямоугольник с измерениями А, В подобен прямоугольнику с соответствующими измерениями C, D.
15. График функции проходит через заданную точку с координатами (m,n).
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием 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.