Создаётся слайд –шоу со звуковым сопровождением. В слайд –
шоу последовательно воспроизводится 20 неповторяющихся
изображений, размером 1024*512 точек, кодируются с
использованием палитры, содержащей 256 цветов. Каждый слайд
проигрывается 2 секунды; переключение слайдов мгновенное. На
протяжении всего слайд-шоу проигрывается моноаудиофайл,
кодированный с частотой дискретизации 32000Гц при глубине
звука 8 бит. Известно, что сжатия изображения и звука не
производилось, а вся служебная информация об организации слайд-
шоу занимает объём 10 Кбайт. Можно сохранить это слайд-шоу на
флешке ёмкостью 4 Гбайт, если известно, что она уже заполнена на
90 %? Решение задачи вместе с дано.
words, nums, chars, i, sen: integer;
begin
readln(a);
words := 1;
For i := 1 to Length(a) do
begin
If (a[i] = ' ') then inc(words);
if (a[i] in ['0'..'9']) then inc(nums);
if (a[i] = #13) then inc(sen);
if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars);
end;
writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences');
end.
Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)