Дано: а-первый член геометрической прогрессии, знаменатель-q, n-количество членов. вывести на экран все члены геом. прогрессии и их среднее
10-11 класс
|
арифметическое (в паскале)
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
массива по возрастанию
не знаю как упорядочить их по возрастанию
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();
}
}
}
Читайте также
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
Дана последовательность чисел. Вывести на экран все отрицательные числа.
разность чисел 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)С
клавиатуры вводится строка символов, представляющая собой предложение со
знаками препинания (точка, запятая, восклицательный знак). Вывести на
экран все слова данного предложения, не содержащие цифр.