РЕшить задачу через FOR и WHILE
5-9 класс
|
var
s: real;
n, x: integer;
begin
readln(n);
x := 1;
while (x <= n) do
begin
s := s + 1 / sqr(2 * x);
x := x + 1;
end;
writeln(s);
s := 0;
for x := 1 to n do
s := s + 1 / sqr(2 * x);
writeln(s);
end.
Другие вопросы из категории
1)Запросить у пользователя число и определить кратно ли оно 3
2)Запросить у пользователя координаты на плоскости,и определить находится ли точка на оси или в центре,или в какой четверти
Читайте также
Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)
решите задачу через While:
прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее
2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a<b
3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными
(задачи можно делать либо через For,либо через While)
Маша набирает текст со скоростью 40 символов в минуту,а Катя- 20 символов в минуту.Через какое время девочки введут одинаковое количество символов,если Катя начала набирать текст на 5 минут раньше?
Нужно решить без x! Спасибо