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

Помогите, с помощью while-do или repeat-until решить задачку по Икт, позязязя.

10-11 класс

Условие:
С клавиатуры вводится целое число, обозначим его n, больше единицы, и вещественное число, обозначим его x. На экран необходимо вывести первые n чисел ряда:
2, 4x, 6x^2, 8x^3, 10x^4 и т.д.
А так же необходимо вычислить их сумму.
Буду премного благодарен, если кто-то решит, а не просто даст мне учебником по башке.

некит12 15 марта 2017 г., 11:31:41 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
132465868797685
15 марта 2017 г., 14:25:21 (7 лет назад)

var
  n, i : integer;
  x, summ, number : real;
begin
  write('Введите целое число (n): ');
  readln(n);
  write('Введите вещественное число (x): ');
  readln(x);
  summ := 0;
  i := 1;
  while i < n + 1 do
  begin
    number := i * 2 * Power(x, i - 1);   {находим число в последовательности на позиции i}
    write(number, ' ');                  {выводим это число}
    summ := summ + number;               {прибавляем это число к сумме}
    i := i + 1;
  end;
  writeln;                               {переход на новую строку}
  writeln('Сумма чисел = ', summ);
end.

+ 0 -
Natalyafrolova
15 марта 2017 г., 15:46:57 (7 лет назад)

Комментарий удален

+ 0 -
Mashagurinec123456
15 марта 2017 г., 17:15:31 (7 лет назад)

Комментарий удален

+ 0 -
ChemicalEnd
15 марта 2017 г., 18:23:34 (7 лет назад)

ИКТ и информатика - предмет хд дам

Ответить

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

4 номер сделайте пожалуйста
В массиве A(n) хранится информация о результатах N спортсменов по плаванию на 100 м. Определить результаты спортсменов, занявших два последних места.

Программа получилась, но лишь от части, так как если задавать n=3, то всё работает нормально, но при задании большего числа программа сходит с ума и начинает нести какой-то бред.

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



Вы находитесь на странице вопроса "Помогите, с помощью while-do или repeat-until решить задачку по Икт, позязязя.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.