procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
Информатике учится,
Будем вместе,детвора.
А пока-пока мы в школе,
Учат нас учителя.
Одна буква сообщения равна 1 байту, так как буква состоит из 8значного двоичного кода, 1знак которой равен 1 биту. 8 бит= 1 байт, считаешь кол-во букв в сообщении и умножаешь на 1 байт. получается кол-во байтов, то есть кол-во информации в сообщении
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.