Составить программу в Паскале.Найдите произведение n членов арифметической прогрессии где a1=3 d=2.Спасибо
10-11 класс
|
// у нас получается прогрессия вида 3 5 7 9 11 и.т.д
Program AriphmP;
Uses Crt;
var a1,n,i:integer;
p:longint;
begin
clrscr;
write('Введите количество членов прогресии n: ');
readln(n);
p:=1; a1:=3
for i:=2 to n do
begin
p:=p*a1;
a1:=a1+2;
end;
write('Произведение n-членов арифметической прогрессии: ',p);
readkey;
end.
Другие вопросы из категории
всего в классе?
б)Известно,что сообщение учителя о том что к доске пойдет Саша Орлов,содержит 5 битов информации. Сколько учеников в классе?
1) Найти сумму нечетных чисел в интервале от 1 до 20
2) Найти сумму четных чисел в интервале от 1 до 20
Нужна программа в паскале
Читайте также
прогрессии и сумму первых n членов Sn. Если Sn≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии . Написать программу на языке Паскаль
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали