составить программу нахождения значенння функции
5-9 класс
|
y = 1 +1 / (2 * 2) +1 / (3 * 3) + ... + 1 / (n * n), если n = 10
var n, i: integer;
y, x: real;
begin
n:=2;
y:=1;
while n<=10 do
begin
x:=1/(n*n);
y:=y+x;
n:=n+1;
end;
writeln(y);
end.
var y, i: integer;
y:= 0
for i:= 0 to 10 do
y:= y + 1 / (i * i);
все, вроде. Проверь на баги, а то у меня нет среды разработки паскаля на PC
ммм.. На любом языке?
на паскале, желательно
Другие вопросы из категории
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.
фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б