Квест по бродскому 1.Чтение какого стихотворения вызвал скандал? ПЕРВАЯ ЧАСТЬ КЛЮЧА. ПЕРВЫЕ БУКВЫ СЛОВ СТИХОТВОРЕНИЯ. 2.Кого Бродский скрывал под инициалами «М. Б.»? ВТОРАЯ ЧАСТЬ КЛЮЧА. СКОЛЬКО БУКВ В ПРОФЕССИИ «М.Б.» 3.ЗАДАНИЕ №3 Как назвала газета «Вечерний Ленинград» Иосифа Бродского? ТРЕТЬЯ ЧАСТЬ КЛЮЧА. ЕСЛИ ПОСЧИТАТЬ ВСЕ БУКВЫ В ОТВЕТЕ ЭТОГО ВОПРОСА И СОЕДИНИТЬ ИХ, ТО ПОЛУЧИТСЯ ТРЕХЗНАЧНОЕ ЧИСЛО. 4ЗАДАНИЕ №4 Какой предмет увозил с собой в чемодане Иосиф Бродский навсегда покидая родину? ЧЕТВЕРТАЯ ЧАСТЬ КЛЮЧА. КОЛИЧЕСТВО БУКВ В СЛОВАХ-ОТВЕТЕ ПО ОТДЕЛЬНОСТИ (один предмет, но двузначное число желательно до конца дня выполнить евр917777 евр917787 Евр917777 Евр917787 евр817777 евр817787 Евр817777 Евр817787 не подходят

program spos;

uses crt;

var

numb:array [1..100] of byte; // для последовательности чисел

i,f:integer; //счетчик и переменная в качестве флага

begin

randomize;

f:=0;

for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do

begin

write(',',numb[i]); // вывод на экран последовательность(можно удалить)

if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0

end;

if f=0 then writeln('Yes') else writeln('No');

end.

program spos;

uses crt;

var

numb:array [1..100] of byte; // для последовательности чисел

i,f:integer; //счетчик и переменная в качестве флага

begin

randomize;

f:=0;

for i:=1 to 100 do begin

numb[i]:=random(101);// задает последовательность

write(' ',numb[i]);//вывод на экран, можно удалить

end;

writeln;

i:=0;

repeat

i:=i+1;

if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0

until i<100;

if f=0 then writeln('Yes') else writeln('No');

end.

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.