// Работает под Pascal ABC.NET
// Заводим переменные
var
// Нужно n типа целое для того, чтобы хранить ввод пользователя
n: Integer;
// По условию задачи необходим массив. Тк N <= 20, то заводим от 1 до 20.
// В массиве будут храниться целые поэтому Integer
a: Array [1 .. 20] of Integer;
// Также нам понадобится счетчик, указывающий на обрабатываемый элемент массива
i: Integer;
begin
// Считываем n с клавиатуры
ReadLn(n);
// Пусть первый элемент равен 1
a[1] := 1;
// Каждый последующий элемент массива
for i := 2 to n do
// Равен предыдущему элементу массива умноженному на 2
a[i] := a[i-1] * 2;
// Вывод каждого элемента массива через пробел
for i := 1 to n do
Write(a[i], ' ');
end.
Я- перебила клавиатура и начала быстро шурша клавишами кричать во весь голос. Как вы сможете вводить информацию если не будет меня? Да вы даже свои имена не напишете.. По этому я должна быть главной.
Погоди ка Клава перебил процессор а ведь я тоже не дурак. Ну введешь информацию а кто будет обрабатывать её? Кто будет всё это рассчитывать, все эти биты байты мегабайты? По этому я тут подумал и вычислил себя самым главным.
Коллега дайте и мне сказать своё слово - сказала память. Как мне не изменяет моя терабайтная память ваши расчеты и ваши вводы информации без меня ровно слова на ветер. Да, да. Как вы будете помнить завтра то что вы сейчас обсуждаете сегодня. Я же ваш мемори. И по этому. Безусловно я являюсь самым главным органом.
Они спорили очень долго долго пока компьютер совсем не завис окончательно.