Читать книгу ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80? - Елена Леонидовна Теплоухова - Страница 3

ExamBegin21

На вход подаются три числа: целое число N (> 1) и вещественные числа A и D – соответственно первый член и знаменатель геометрической прогрессии (каждое число вводится с новой строки). Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D², A·D³, … . Каждое число выводить на новой строке.

uses PT4Exam;

const R = 100;

var

m: array[1..R] of real;

n, i: integer;

a, d: real;

begin

Task('ExamBegin21');