Question

Паскаль!!! С помощью цикла while Запросить число, записать его в первый элемент массива. Остальные 9 элементов создать по такой формуле: каждый следующий элемент вдвое больше предыдущего. Вывести массив.​

Answer 1

Pascal ABC.

Код:

var

  a: array [1..10] of integer;

  i:integer;

begin

    readln(a[1]);

    i := 2;

    while i < 11 do begin

          a[i] := a[i-1] * 2;

          inc(i);

    end;

    i := 1;

    while i < 11 do begin

          write(a[i], ' ');

          inc(i);

    end;

    writeln;

end.

Пример работы:

Ввод:

6

Вывод:

6 12 24 48 96 192 384 768 1536 3072

Ввод:

3

Вывод:

3 6 12 24 48 96 192 384 768 1536

Answer 2

Конечно, вот пример кода на языке Паскаль, который реализует указанную вами задачу с использованием цикла while:

pascalCopy code
program ArrayWithFormula;

var
  numArray: array[1..10] of Integer;
  inputValue, i: Integer;

begin
  WriteLn('Введите число:');
  ReadLn(inputValue);

  numArray[1] := inputValue;

  i := 2;
  while i <= 10 do
  begin
    numArray[i] := numArray[i - 1] * 2;
    i := i + 1;
  end;

  WriteLn('Результат:');
  for i := 1 to 10 do
    WriteLn('Элемент ', i, ': ', numArray[i]);

end.

Скопируйте этот код в среду программирования на Паскале, и он выполнит запрос числа, создаст массив и выведет результат.