Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Дано: а-первый член геометрической прогрессии, знаменатель-q, n-количество членов. вывести на экран все члены геом. прогрессии и их среднее

10-11 класс

арифметическое (в паскале)

Prosvirov97 12 марта 2016 г., 11:32:58 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Olysika1991
12 марта 2016 г., 14:23:55 (8 лет назад)

program njn;

uses crt;

var a:array [1..100] of integer;

       i,p:integer;

       s:real;

begin

clrscr;

readln(a[1],q,n);

s:=0;

p:=a[1];

for i:=2 to n do begin

 a[i]:=p*q;

p:=a[i];

end;

for i:=1 to n do

writeln(a[i]);

for i:=1 to n do

s:=s+a[i];

writeln('Среднее=',s/n);

readln;

end.

Ответить

Другие вопросы из категории

Построение графика функции в

электронных таблицах у=х2+5 , при значении аргумента изменяющегося
от [-5;5], с шагом 1

Построить график в ексель

у=большая фигурная скобка 3Sin^2x-Cosx,x≤0
√2+x^2,x ,больше 0

1001100100,01 - 10101001,1 ( двоичная система )
Язык С++ В n мерном массиве целых чисел, вычислить сумму отрицательных элементов массива, сумму положит элементов массива, и упорядотчить все элементы

массива по возрастанию

не знаю как упорядочить их по возрастанию

using System;
using System.Collections.Generic;

using System.Text;

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int n, summa = 0;
int k, summa2 = 0;

Console.Write("введите число n(размер массива):");
n = Int32.Parse(Console.ReadLine());
int[] x = new int[n];
Console.Write("Введите элементы массива через Enter:");
for (int T = 0; T < n; T++)

{
x[T] = int.Parse(Console.ReadLine());
if (x[T] < 0) summa += x[T];
if (x[T] > 0) summa2 += x[T];

}
Console.WriteLine("Сумма отрицательных элементов :" + summa);
Console.WriteLine("Сумма положительных элементов :" + summa2);

Console.Read();
}
}
}

Читайте также

Даны действительные числа x, y. Вывести на экран то из них, которое меньше.

Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.

Решите задачу в Паскале. Если можно с блок - схемой.

Дана последовательность чисел. Вывести на экран все отрицательные числа.

1.Напишите команды, которые выполняют следующие действия: а) вывод переменной с ;б) описать переменные а и s целого типа; в) переменной r присваивает

разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)

Пожалуйста помогите Написать код на С++

1)Для заданных натуральных чисел a и b вычислить их наибольший общий делитель НОД(a.b), используя алгоритм Евклида:
НОД(a,b)=a eсли b=0
НОД(a,b)=b если a=0
НОД(a,b)= НОД(a mod b,b) если a>b и b не = 0
НОД(a,b)= НОД(a,b mod a) если a<b и a не = 0
2)С
клавиатуры вводится строка символов, представляющая собой предложение со
знаками препинания (точка, запятая, восклицательный знак). Вывести на
экран все слова данного предложения, не содержащие цифр.



Вы находитесь на странице вопроса "Дано: а-первый член геометрической прогрессии, знаменатель-q, n-количество членов. вывести на экран все члены геом. прогрессии и их среднее", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.