Var
a:integer;
begin
write('Введите число ');
readln(a);
if (a div 1000 = a mod 10) and ((a div 100)mod 10 =(a div 10)mod 10)then
writeln('Палиндром')
else writeln('не Палиндром');
end.
Бит может принимать значения 0 или 1.(2)
8 Бит - длинна строки.(8)
Следовательно различных комбинаций может быть: 2^8=256.
var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
<span>Я думаю, что это слово "клавиатуры".
</span>