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

Question

Информатика

Рюрик

15 сентября, 12:18

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

+2

Ответы (1)

Знаете ответ на вопрос?

Макар · 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

d:=c;

While d 0 do begin

a:=a*f;

d:=d-1;

end;

b[c] : = a;

c:=c+1;

end;

end.