Вы руководитель секретной службой фирмы. каждое утро вы получаете новый пароль доступа к информации. на текущей неделе в паролях используетя только три буквы: п, т, о. буквы закодированы двоичными : п-011 т-000 о-010 в понедельник паролем было слово потоп запишите последовательность цифр без пробелов обозначающий этот пароль

слово: потоп

последовательность цифр: 011010000010011

#include

void main()

{

int x;

std: : cin> > x;

int sum = 0;

int prod = 1;

while(x> 0)

{

  int y = x%10;

  sum = sum + y;

  prod = prod * y;

  x=x/10;

}

if(sum%10 == 0 & & prod < 100)

  std: : cou< < "yes"<

else:

  std: : cout< < "no"<

}

pascal

var n,digit,sum,prod: integer;

begin

  readln(n);

sum = 0;

prod = 1;

  while (n> 0) do

  begin

  digit: =n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n: =n div 10;

  end;

if(sum mod 10=0)and(prod< 100)

begin

writeln("да");

end

else

begin

writeln("нет"):

end;

как то так

end.

// pascalabc.net 3.0, cборка 1052 var   a: integer;   i, j, max: integer; function f(a, b: integer): integer; begin   if a > b then result : = a else result : = b end; begin   randomize;   max: =-1;   write('набор чисел: ');   for i : = 1 to 5 do   begin       a: = random(10);       write(a,' ');       max: =f(max,a)   end;   writeln(#13#10,'максимальное число равно ',max) end. тестовое решение: набор чисел: 6 8 5 1 2 максимальное число равно 8