Программа в QBasic

Question

Дано цело число N(>1),а также первый член А и знаменатель D геометрической прогрессий.
Сформировать и вывести массив размера N,содержащий N первых членов данной прогрессий:
A,A*D, A*D^2, A*D^3 , .

krab_bark_6 · Accepted Answer

input "N D A: ";n,d,a : dim m(n) 
for i=1 to n : m(i)=a : a=a*d : next 
for i=1 to n : print m(i); : next