с информатик ой В круглосуточном супермаркете установлено 20 касс и работает всего одна тетя Галя – хранительница ключей для отмены операций. Кассиры работают в три смены. Известно, что после каждого применения ключа для отмены операций в системе сохраняется следующая информация: номер кассы и номер смены. Причем что номер кассы, что номер смены представляются с минимально возможного количества бит и записываются последовательно друг за другом. В конце месяца, подводя итоги работы, решили проанализировать журнал отмены операций. Сколько раз Галя бегала через весь супермаркет, если известно, что журнал с записями об отмене операций занимает 3.5 КБайт?
1. Скрипка. Может создавать звук любой высоты. Переход от тона к тону происходит плавно и непрерывно.
2. телевизор. Луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно.
3. Телефон, Громкость звука меняется плавно и непрерывно.
4. Картина, нарисованная художником с использованием большого количества оттенков красок.
5. Графики функций.
Источники цифровой (дискретной) информации.
1. Фортепьяно . Нельзя исполнить звуки между нотами «ми» и «фа». Переход от ноты к ноте осуществляется скачком.
2. Монитор. Яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка).
3. Музыкальный проигрыватель компакт дисков.
4. Компьютер
5. Мобильные телефоны.
Аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, завершив его точкой:');
var p:=Pos('.',s);
if (p>0) and (p<s.Length) then s:=s[:p+1];
Writeln('Количество предложений равно ',s.ToWords('!').Count)
end.
Пример
Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4!
Количество предложений равно 3
Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:
begin
Writeln('Количество предложений равно ',
ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count)
end.