Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
Это. очень смешно. папа. съел все. апельсины
В прилагаемой блок-схеме операция \ означает деление нацело (операция div в Паскале), а \% - остаток от целочисленного деления (операция mod в Паскале).
010000001000000011010111000010 000100101100000001000100010001010110000000010 100010010110000000110010100101000100100010111
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160