Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
1) набор символов отделяемых проблами
2) набор символов отделяемых переводами строки
3) тут трудно сказать, скорее это чтото динамическое
4) я думаю что редактирование все же, просмотр реже
5) редактирование это изменение набора символов текста, так же впринцепе сюда относится и форматирование текста
6) Которые можно проводить в текстовом редакторе? создать, сохранить, сохранить с новым именем (а ля скопировать), открыть
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
А) Если символы равновероятны, то количество информации определяется пл формуле Хартли I = log(2)N = log(2)4 = 2 бита
Б) Если вероятности различны, то используется формула Шеннона I=log(2)(1/p)
I1 = log(2)(1/0,4) ≈ 1,32
I2 = log(2)(1/0,15) ≈ 2,74
I3 = log(2)(1/0,25) = 2
I4 = log(2)(1/0,2) ≈ 2,32