Var a,b,c,s,v:real;
begin
readln(a);
readln(b);
readln(c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('объем ',v,' площадь поверхности ',s);
end.
Объясню алгоритм:
считываем слово,
если это слово имеет чётную длину
если это слово палиндром
то ответ ложь
иначе ответ истина
1)100111 в 8 =3 0 3 4 1 7 по таблице аски сам переведи
100111 в 16 =5 0 15
Бит принят за единицу измерения