1 буква=1 байт=8 бит
(кол-во слов в сообщении умножь на 8)
Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.
Chertovo ogranichenie na min kolvo simvolov
max(b2:d2)
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no