Ответы
Ответ дал:
0
Вот код просто заполняющий массив
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.
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.
Ответ дал:
0
А вот код, который еще и выводит массив
Ответ дал:
0
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;
writeln (b);
end.
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;
writeln (b);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад