Question

Pascal написать программу, которая выводит таблицу степеней тройки (от нулевой до девятой)

Answer 1

program Step3;

var

 i, t: Integer;

begin

 t := 1;

 for i := 0 to 9 do begin

   WriteLn ('3 ^ ', i, ' = ', t);

   t := t * 3;

 end;

 ReadLn;

end.

Answer 2

program Calc;

const

 abeg = -3.0;

 aend =  7.0;

 da   =  0.1;

var

 a: Double;

begin

 a := abeg;

 while a <= aend do begin

   WriteLn (a :3 :1, 2 * Sqr (a) + 4 * a - 1 :15 :10);

   a := a + da;

 end;

  ReadLn;

end.

Объяснение:

da - шаг изменения а. нужен другой поменяйте

Answer 3

program For;

const

 abeg = -3;

 aend =  7;

var

 a: Integer;

 d: Double;

begin

 for a := abeg to aend do begin

   d := 2 * Sqr (a) + 4 * a - 1;

   WriteLn (a :3, d :15 :10);

 end;

 ReadLn;

end.

Объяснение:

через цикл for