КЛАСС ИНФОРМАТИКА. НА ПИТОНЕ
pwd="qwerty"
data="I watch anime"
x=""
k=0
while x!=pwd and k<3:
x=input("Enter passowrd:")
k+=1

if x==pwd:
print(data)
else:
print("Wrong password!")

# Доработать так, чтобы программа показывала количество оставихся попыток
НА ПИТОНЕ

a - 11010000 10110000

б - 11010000 10110001

в - 11010000 10110010

г - 11010000 10110011

д - 11010000 10110100

е - 11010000 10110101

ё - 11010001 10010001

ж - 11010000 10110110

з - 11010000 10110111

и - 11010000 10111000

й - 11010000 10111001

к - 11010000 10111010

л - 11010000 10111011

м - 11010000 10111100

н - 11010000 10111101

о - 11010000 10111110

п - 11010000 10111111

р - 11010001 10000000

с - 11010001 10000001

т - 11010001 10000010

у - 11010001 10000011

ф - 11010001 10000100

х - 11010001 10000101

ц - 11010001 10000110

ч- 11010001 10000111

ш - 11010001 10001000

щ - 11010001 10001001

ъ - 11010001 10001010

ы - 11010001 10001011

ь - 11010001 10001100

э - 11010001 10001101

ю - 11010001 10001110

я - 11010001 10001111

Цифры:

1 - 110001

2 - 110010

3 - 110011

4 - 110100

5 - 110101

6 - 110110

7 - 110111

8 - 111000

9 - 111001

10 - 110001 110000

Программа 1:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 max_num = 100; {Максимальная величина в массиве}

var

 N : integer; {Размерность массива}

 Massiv : array of array of integer;

 i, j : integer; {Счетчики циклов}

 p : int64; {Произведение элементов}

begin

Randomize;

write('Введите число - размер массива N: ');

readln(N);

{Установка размера массива}

SetLength(Massiv, N, N);

{Формирование случайного двумерного массива с элементами от 1 до 100}

for i := 0 to N-1 do begin

 for j := 0 to N-1 do begin

  Massiv[i, j] := Round(Random * max_num) + 1;

  write(Massiv[i,j]:4)

 end;

 writeln

end;

p := 1; {Инициализация переменной для подсчета произведения}

{Собственно, сам подсчёт.}

{Для главной диагонали особенность индексов, где i = j}

{Поэтому достаточно одного цикла}

for i := 0 to N-1 do

 p := p * Massiv[i, i];

writeln('Произведение р = ', p)

end.

Программа 2:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 max_num = 100; {Максимальная величина в массиве}

var

 N : integer; {Размерность массива}

 Massiv : array of array of integer;

 i, j : integer; {Счетчики циклов}

 c, m, k : integer; {Подсчёт чётных элементов}

begin

Randomize;

write('Введите число - размер массива N: ');

readln(N);

{Установка размера массива}

SetLength(Massiv, N, N);

{Формирование случайного двумерного массива с элементами от 1 до 100}

for i := 0 to N-1 do begin

 for j := 0 to N-1 do begin

  Massiv[i, j] := Round(Random * max_num) + 1;

  write(Massiv[i,j]:4)

 end;

 writeln

end;

{Обнуление счётчиков}

m := 0; k := 0;

for i := 0 to N-1 do begin

 {Подсчёт чётных в строке i}

 c := 0;

 for j := 0 to N-1 do

  if (Massiv[i, j] mod 2 = 0) then Inc(c);

 {Если чётных больше, чем в предыдущих строках, то}

 if (c > m ) then begin

  {запоминаем номер строки в переменной k}

  k := i;

  {запоминаем текущее количество чётных}

  m := c

 end

end;

writeln('Чётных чисел больше в строке ', k,'. Их - ', m)

end.