Var s,k,a:integer;
begin
writeln('введите четырёхзначное число');
readln(s);
k:=0;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
writeln('перевёрнутое число ==> ',k/10);
end.
Для быстрого доступа к программам, документам и другим объектам
На картинке все написано.
Нужно посчитать каждую букву, знак препинания, все пробелы и умножить их число на 16.
Получим ответ в битах.
Разделим на 8 - получим ответ в байтах.