Выяснить есть ли в трёхзначном числе одинаковые цифры

var

s: string[3];

begin

readln(s);

if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then

writeln('есть') else

writeln('нет');

end;

пишу на паскале

program tralala;

var a,b,c,n: integer;

begin

readln(n);

a: =n div 100;

b: =n div 10 mod 10;

c: =n mod 10;

if (a=b) or (a=c) or (b=c) then writeln (есть');

else write('нету');

end.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

для матрицы 8*8

код

00111111

01000001

10000001

01000001

00111111

00010001

00100001

11000001

объем 8 байт

для символьного 1 байт в ascii

2 байта в unicode