Решить на паскале, используя циклы. вводится последовательность целых чисел, не превосходящих по модулю 10^9, и при этом не равных нулю. ноль – признак конца. вы- дайте три максимальных числа этой последовательности, не игнорируя дубликаты (то есть, три числа в ответе могут совпадать гарантирует- ся, что в последовательности есть как минимум три содержательных элемента.

//Знаю, что это решение далеко от понятия "изящество"
//Pascal ABC.NET v3.0 сборка 1111
var
 max1,max2,max3,i,maxi1,maxi2:integer;
 ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
 repeat
  inc(i);
  setlength(ar,i+1);
  readln(ar[i]);
 until ar[i]=0;
 for i:=0 to i do
 if ar[i]>max1 then
  begin;
   max1:=ar[i];
   maxi1:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max2) and (i<>maxi1) then
  begin;
   max2:=ar[i];
   maxi2:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.

1. Для наглядности построй в столбик значения двойки в степенях от 0 до 7. Это будет 1, 2, 4, 8, 16, 32, 64, 128.

2. Разложи число (Внимание! Обязательно только из десятичной системы счисления) на числа из построенного ранее столбика.

К примеру возьмем число 37. 37=32+4+1.

2. Отсчитывай от числа из столбика 128 до 1. Если в разложении имеется это число, то пиши 1. Иначе 0.

0(128 нету) 0(64 нету) 1(32 есть!) 0(16 нету) 0 1 0 1

Цифр должно получиться восемь. Лучше пересчитать на случай, если случайно забыл ряд.

То есть по этому алгоритму .

И, конечно же, пробуй переводить числа самостоятельно. Сухая теория тут не имеет места.

ответ: 33

Объяснение: В "Ж" можно приехать из Е, К, З, В или Б, поэтому N = NЖ = NЕ + NК + N З + NВ + NБ (1)

NЕ = NБ + NК;

NК = NЗ + NИ;

NЗ = NВ + NГ + NД;

NВ = NА + NБ = 1 + 1 = 2;

NБ = NА = 1.

Добавим еще вершины:

NГ = NА = 1;

NД = NА + NГ = 1 + 1 = 2;

NИ = NЗ + NД = NЗ + 2;

Преобразуем первые вершины с учетом значений вторых:

NЕ = NБ + NК = 1 + 12 = 13 ;

NК = NЗ + NИ = 2NЗ + 2 = 10 + 2 = 12;

NЗ = NВ + NГ + NД = 2 + 1 + 2 = 5;

NВ = NА + NБ = 2;

NБ = NА = 1.

Подставим в формулу (1):

N = NЖ = 13 + 12 + 5 + 2 + 1 = 33