Дана строка.написать программу для вывода на экран длины этой строки

Var s:string;
begin
readln(s);
writeln('Длина строки = ',length(s));
end.

Пример:
one, two, three
Длина строки = 15

Type mas=array[1..93] of real;
var i,w:byte;season:mas;t:real;

function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;

begin

repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;

writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);

writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);

writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);

writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.

Дано: текст 3.5 килобайта

Найти: количество символов в тексте

Решение: Итак, текста у нас 3.5 килобайта

Переведём в байты:

3.5 кбайта * 1024 байт\килобайте = 3584 байт.

Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас 

3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа

ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки.

 

 

Задача 2

Дано:

Два текста - одинаковое количество символов.

У первого алфавит мощностью 32 символа,

у второго алфавит мощностью 64 символа

Найти:

во сколько раз отличаются объемы текстов

найдем объем инфомрации символа первого текста

log2(32) = 5 бит (логарифм двоичный от 32)

для второго текста 

log2(64) = 6 бит

Пусть текст имеет длину Х

тогда первый текст имеет объем 5x, а второй 6x.

 

Разделим: 6x/5x = 6/5 или 1.2 

ответ: в 6\5 раз отличаются объемы текстов.