У якому вигляді зберігаються літери тексту в комп’ютері?

Question

Информатика: У якому вигляді зберігаються літери тексту в комп’ютері?

МаКсИк009 · Accepted Answer

Program pr;
uses crt;

var
chislo, sum1, sum2, i:integer;
Begin
writeln ('Введите номер билета');
readln (chislo);

if (chislo>999999) or (chislo<100000)
  then writeln ('Такого билета нет')
else
  Begin
  sum1:=0;
  for i:=1 to 3 do
  Begin
sum1:=sum1 + (chislo mod 10);
chislo:=chislo div 10;
end;

sum2:=0;
for i:=1 to 3 do
Begin
  sum2:=sum2 + (chislo mod 10);
  chislo:=chislo div 10;
end;

if (sum1=sum2)
  then writeln('Билет счастливый')
  else writeln('Билет несчастливый');
end;

readln;
end.

MOGZ ответил