<span>uses crt;
var c:char;
begin
clrscr;
write('Введите символ ');
readln(c);
case c of
'0'..'9':write('Это десятичная цифра, ее код ',ord(c));
'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c));
'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c));
//убрал знак /, он в спец. символах
';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c));
else write('Символ не входит в указанный список')
end;
readln
end.</span>
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
0,098 килобайт получается
Такое устройство называется датчик.
Как правило, электрический.
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>