Вычислить значение переменной у, при n: у=1/1^2+1/2^2+1/3^2+...+1/n^2. Написать решение на языке паскаль.

24 Мая 2020 в 19:40
153 +1
0
Ответы
1
program SumSquares;
var
n, i: integer;
y: real;
begin
write′Enterthevalueofn:′'Enter the value of n: 'Enterthevalueofn:;
readlnnnn;
y := 0;
for i := 1 to n do
begin
y := y + 1 / sqriii;
end;
writeln′Thevalueofyis:′,y:0:2'The value of y is: ', y:0:2Thevalueofyis:,y:0:2;
end.

Введите значение переменной n, чтобы программа вычислила значение переменной у.

18 Апр 2024 в 11:43
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир