Составить программу с помощью цикла S = (3/(1+2^2))+(6/(1+3^2))+(9/(1+4^2))+...+(30/(1+9^2))
5-9 класс
|
var
A,B,i:integer;
S:real;
begin
A:= 3;
B:=2;
S:=0;
for i:=1 to 10 do
begin
S:= S+ A/(1+B*2);
A:= A+3;
B:= B+1;
end;
Writeln(S);
Readln;
end.
Другие вопросы из категории
2. первое задание с листка, пункт в)
3.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечетными значениями. (упр. 2, пункт а))
4.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями(на картинке упр.3, пункт а) )
лучше смотрите по картинке, т.к. боюсь что где-то ошиблась....
Читайте также
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"