Чи являється ПК динамічною складною
структурою?

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.

var a,s: integer;

begin

  read(a);

  repeat

      s: =s+a mod 10;

      a: =a div 10

  until a=10;

  if (s< 100) and (s> 9) then write('yes')

  else write('no');

end.