На единицу больше, чем максимальная из цифр в записи чисел. В данном случае максимальная цифра 3, следовательно, достаточно использовать систему счисления с основанием 4.
<em>ГОЛЛИВУД</em> (<span>Е:\КИНО\ФАНТАСТИКА</span>\ГОЛЛИВУД)
Uses crt;
var pr,sum,e,d,s,t,a:integer;
begin
readln(a);
e:=a mod 10;
d:=(a div 10) mod 10;
s:=(a div 100) mod 10;
t:=a div 1000;
pr:=1;
sum:=0;
if e mod 2 =0 then sum:=sum+e else pr:=pr*e;
if d mod 2 =0 then sum:=sum+d else pr:=pr*d;
if s mod 2 =0 then sum:=sum+s else pr:=pr*s;
if t mod 2 =0 then sum:=sum+t else pr:=pr*t;
writeln(sum);
writeln(pr);
end.
Ответ:
2000 байт
Объяснение:
40 * 50 = 2000 количество символов в тексте
2000 * 1 = 2000 байт 2000 информационный объём текста
I = К * i, где
I - информационный объём текста
К - количество символов в тексте
i - информационный вес символа