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

haikyuu24 haikyuu24    1   11.09.2019 20:20    0

Ответы
простонастя4 простонастя4  07.10.2020 08:11
Вот код просто заполняющий массив
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика