Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
Так как A больше B, то подставляем в первую, после then ) c:=8+2
C:=10 , если бы условие не выполнялось, подставляли бы в то, что после else(иначе)
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);<span>end.
</span>
<span>Сейчас в основном используются 8 битные кодировки, постепенно идет переход на юникод.</span>
Вероятнее всего складывать надо цифры, а не числа
var x,i,k:integer;
begin
readln(x);
while x>0 do begin
i:=x mod 10;
k:=k+i;
x:=x div 10;
end;
writeln(k);
end.