Роман, козак,коза,Канада, мак,Рома,корова.
Если Д =134 то код у символа А=13 ЛОГИКА!!
Var a, b, c, i: integer;
d: string;
begin
readln(a, b);
d := inttostr(a);
for i := 1 to length(d) do
c := c + strtoint(d[i]);
if (b = c) then writeln('Yes') else writeln('No');
<span>end.</span>
Вот таблица сходств WiMAX и Wi-Fi у меня