Выполнить сжатие информации методом RLE Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы взять текст из таблицы. С таблицы CP-1251 перевести символы заданной фразы в десятичные числа, а затем десятичные числа перевести в двоичные. Выполнить сжатие информации, вычислить контрольные суммы и коэффициент сжатия. Слово - Удостоверение
var
s:string;
c:char;
begin
Write('Введите натуральное число: ');
Readln(s);
Write('введите искомую цифру: ');
Readln(c);
if Pos(c,s)>0 then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var
s,c:integer;
brk:boolean;
begin
Write('Введите натуральное число: ');
Read(s);
Write('введите искомую цифру: ');
Read(c);
brk:=false;
repeat
if s mod 10=c then brk:=True;
s:=s div 10
until brk or (s=0);
if brk then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет