Запишите число CDIV в десятичной системе счисления

404

Объяснение:

с=100

d=500

i=1

v=5

500-100+5-4=404

необходимо (но не достаточно).

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.