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

Question

Информатика

Артемида

24 мая, 05:13

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

+1

Ответы (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.