var
i,p:integer;
begin
p:=1;
for i:=7 to 12 do
p:=p*i;
writeln(p);
end.
Устройства вывода<span> информации</span>
10 в двоичной с.сч. равен 2 в десятичной с.сч.
Число 10 уже стоит в десятичной с.сч
Значит нужно всего лишь прибавить:
10+2=12
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>