Решите задачу: заполните массив размерностью 7 элементов степенью числа 3

Question

Решите задачу: заполните массив размерностью 7 элементов степенью числа 3

Comments

Нужно решение и на языке паскаля

---

5 сек

Answer 1

Вот код просто заполняющий массив
var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin<br>d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
end.

Comments

А вот код, который еще и выводит массив

---

var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin<br>d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
writeln (b);
end.