Блог учителя Информатики

Решение задачи ExamBegin19


Условие задачи:

На вход подается целое положительное число N. Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, … . Выводить все числа в одной строке, для каждого числа отводить 5 экранных позиций.


uses PT4Exam;

const
  R = 100;

var
  m: array[0..R] of integer;
  a, i: integer;

begin
  Task('ExamBegin19');
  Read(a);
  m[0] := 1;
  for i := 1 to a do
  begin
    m[i] := m[i - 1] * 2;
    Write(m[i]:5);
  end;
end.

Так же возможное решение 19 задачи.

uses PT4Exam;

var
  a, i, p: integer;

begin
  Task('ExamBegin19');
  Read(a);
  p := 1;
  for i := 1 to a do
  begin
    p := p * 2;
    Write(p:5);
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий