2'= N где N-мощность алфавита, '(i)- количество информации
1) var p,i:integer;
begin
p:=1;
for i:=41 to 76 do
p:=p*i;
writeln(p);
end.
2) var k,i:integer;
begin
k:=0;
for i:=34 to 298 do
if i mod 7 = 0 then
k:=k+1;
writeln(k);
end.
Uses crt;
const n=7;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
a[i]:=a[i]*0.133;
write(a[i],' ');
end;
end.
№2
Правильно будет :
Program first;
Var X:array [1..8] of integer;
Z,i:integer;
begin
for i:=1 to 8 do
X[i]:=i*i;
Z:=X[1]+X[4];
write(Z);
end.
Выведено будет : 17
№3
D - вычисляет сумму положтельных елементов масива
№1
25
var a:array[1..10]of integer;
i,n1,n2:integer;
s:real;
begin
for i:=1 to 10 do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/10;
for i:=1 to 10 do begin
if a[i]>s then inc(n1);
if a[i]<s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.