Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Дано: N=256, а=15, в=32, с=64
Найти: I
I= k*i, где k- количество символов в тексте, i - количество бит на символ
N=2^i, где N- количество символов в алфавите, 256= 2^i,
отсюда i= 8
k= a*b*c= 15*32*64= 30720 символов
I=30720*8= 245760 бит = 30720 байт
2)E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
1). Здесь возможны 2 варианта:
if A>10 then a:=a+2 else
if A>10 then else a:=a+2
2)
<span>__ a:= 23 div 10 +10 - </span>3) 12<span>
__ b:= a mod 5 +1 - </span>4) 3<span>
__ c:= sqr(b) - </span>1) 9<span>
__ d:= c *5/3 - </span>2) 15
//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
<span>c.в данный момент работает дисковод с компакт-диском</span>