Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i],' ');
Writeln;
For i:=1 to N do
If (A[i]>=6) and (A[i]<=20) then
k:=k+1;
Writeln('количество значений лежащих в промежутке [6 до 20] ',k);
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i]*A[j]>10 then
l:=l+1;
Writeln('количество значений п<span>роизведение которых больше 10</span>',l);
end.
Var i,n,s:integer;
begin
read(n);
i:=2;
s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]
while s<>0 do
begin
s:= n mod i;
if s <> 0 then
i:=i+1;
end;
writeln (i);
<span>end.</span>
Если мы пронумеруем все числа, то на первом шагу останутся все числа с номерами 2к (к начинается с единицы), на втором 4к и т д. Значит, нам просто нужно узнать количество таких шагов. Всего чисел м-н. каждый раз мы удаляем половину. Значит, нужно посчитать логарифм от (м-н) по основанию 2. А ответом будет этот логарифм, округленный в меньшую строну (ну или в большую, там смотреть надо)
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>
Бывают, информационные модели, и натурные ( материальные )