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

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

Задать свой вопрос
Дима Конюшенко
Необходимо решение и на языке паскаля
Болгарев Влад
5 сек
1 ответ
Вот код просто наполняющий массив
var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (clt;8) do begin
d:=c;
While d lt;gt;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;beginf:=3;c:=1;a:=3;while (c<8) do begind:=c;While d <>0 do begina:=a*f;d:=d-1;end;b[c] := a;c:=c+1;end;writeln (b);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт