Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.
Program n1;
var i,q,r,t: real;
begin
readln(i,t,r);
q:=i*i*r*t;
writeln(q);
end.
<u><em>
Дано:</em></u>
N1=32 симв
N2=64 симв
<em><u>Найти:</u></em>i2/i1
<u><em>Решение:</em></u>1. N1=2^i1;
32=2^i => i1=5 бит (информационный объем одного символа в первом тексте)
2. N2=2^i2;
64=2^i => i2=6 бит (информационный объем одного символа во втором тексте)
3. i2/i1=6 бит/ 5 бит = 1.2
<u><em>Ответ:</em></u> в 1.2 раза.