Помогите, с помощью while-do или repeat-until решить задачку по Икт, позязязя.
10-11 класс
|
Условие:
С клавиатуры вводится целое число, обозначим его n, больше единицы, и вещественное число, обозначим его x. На экран необходимо вывести первые n чисел ряда:
2, 4x, 6x^2, 8x^3, 10x^4 и т.д.
А так же необходимо вычислить их сумму.
Буду премного благодарен, если кто-то решит, а не просто даст мне учебником по башке.
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.
Комментарий удален
Комментарий удален
ИКТ и информатика - предмет хд дам
Другие вопросы из категории
Программа получилась, но лишь от части, так как если задавать n=3, то всё работает нормально, но при задании большего числа программа сходит с ума и начинает нести какой-то бред.
Читайте также
Ввод чисел пользователем заканчивается после ввода цифры 0.
2)Возведение степени a в степень n, с помощью while