Question

считая, что каждый символ кодируется 1 байтом, определите информационный объем в байтах фразы: Певец-Давид быд ростом мал, но повалил же Голиафа!

Answer 1

Var s: string;
k: integer;
Begin
Write ('Введите Ваше предложение: ');
read(s);
k := length(s);
Write ('Размер: ',k);
End.