ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80?

Автор

Елена Леонидовна Теплоухова

Год написания книги

2020

Теги

<< 1 ... 3 4 5 6 7 8 9 >>

На страницу:

Перейти

7 из 9

Настройки чтения

Размер шрифта

Высота строк

Поля

end.

ExamBegin18

На вход подается целое положительное число N. Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … . Каждое число выводить на новой строке.

uses PT4Exam;

const

R = 100;

var

m: array[1..R] of integer;

a, k, n: integer;

begin

Task('ExamBegin18');

Read(a);

k := 1; n := 0;

while n < a do

begin

if k mod 2 = 1 then begin

m[k] := k;

n := n + 1;

Writeln(m[k]);

end;

k := k + 1;

end;

end.

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