Есартия52
?>

Алгоритма «не могу» и « не понимаю «

Информатика

Ответы

Александровна-Грузман

// Работает под 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.

 

vifslafes

// Pascal ABC.NET
var

 ans1, ans2, ans3: Integer;

procedure rec1(k: Integer);

begin

 if k < 1 then

   exit;

 if k = 1 then begin

   Inc(ans1);

   exit;

 end;

 if k mod 2 = 0 then

   rec1(k div 2);

 rec1(k-1);

end;

procedure rec2(k: Integer; visited: Boolean);

begin

 if k < 1 then

   exit;

 if (k = 1) and visited then begin

   Inc(ans2);

   exit;

 end;

 if k mod 2 = 0 then

   rec2(k div 2, visited or (k = 15));

 rec2(k-1, visited or (k = 15));

end;

procedure rec3(k: Integer);

begin

 if (k < 1) or (k = 12) then

   exit;

 if k = 1 then begin

   Inc(ans3);

   exit;

 end;

 if k mod 2 = 0 then

   rec3(k div 2);

 rec3(k-1);

end;

begin

 ans1 := 0;

 ans2 := 0;

 ans3 := 0;

 rec1(20);

 rec2(20, false);

 rec3(20);

 WriteLn('ответ на подзадачу 1: ', ans1);

 WriteLn('ответ на подзадачу 2: ', ans2);

 WriteLn('ответ на подзадачу 3: ', ans3);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Алгоритма «не могу» и « не понимаю «
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

buhh20104519
Dmitriy793
alekbur
skorykin123371
simonovaliubov5852
Dampil
lechocolat
muzaffarovich-Sergei1777
kurlasku
laleonaretouch
aregaa
donliolik
zoyalexa495
konnovakat1
sorokinae