Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2
Ищем информационный вес одной ьуквы в первом алфавите;
Для этого представим кол-во ьукв в алфавите в степени числа два
16=2^4 => i= 4 бита
Так же для второго:
256 = 2^8 =>i= 8бит
Кол-во символов одиннаковое, составим отношение алфавитных подходов
(K)
n*i/ n * i. n сокращаем.
8/4= 2 Разница в два раза.
Для письменной работы:
Дано:
K1=K2
N1=16
N2=256
I1/I2-?
Решение:
N=2^i
16=2^4 => i= 4 бита
256 = 2^8 =>i= 8бит
I(Инф. обьес всего файла)= K*i
I1/I2= K 1i / K 2i. K сокращаем
1i / 2i
4/8= 2. (Большое на меньшее делить надо)
В два раза кол-во инфооиации во втором тексте больше, чем в первом
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
Рисунки несут наглядную информацию. Текстовое сообщение не обладает свойством образности.Текстовая информация не образная,а знаковая.<span>Текст -это текстовые данные.</span>