Question

Дано целое положительное число N.
Вывести первые N чисел геометрической прогрессии 1, 4, 16, 64, ... ​

Answer 1

Вот тебе два варианта, один на С++, второй на Pascal.

С++:

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

   int a = 1, b;

   cout << "Vedite kolichestvo elementov:  ";

   cin >> b;

   for (int(i) = 1; i<b; i++)

   {

       cout << a << "  ";

       a = a + a + a + a;

   }

   return 0;

   system("pause");

}

Pascal:

var

 a, i, b : integer;

begin

 a := 1;

 i := 1;

 write('Vedite kolichestvo elementov:  ');

 readln(b);

 for i := 1 to b do

 begin

   write(a, '  ');

   a := a + a + a + a;

 end;

 readln;

end.