Задание:
Считая, что каждый символ кодируется 1 байтом, определите информационный объем в байтах фразы: Певец-Давид быд ростом мал, но повалил жеГолиафа!
Решение:
Var s: string; k: integer; Begin Write ('Введите Ваше предложение: '); read (s); k: =length (s); Write ('Размер: ',k); End.
Знаете другой ответ?