2 разбойника сели на лодку и перебрались на другой берег, затем два купца перебрались на другой берег. Последний разбойник перебрался на противоположный берег, и затем последний купец перебрался на противоположный берег. Лодка совершила 2 рейса.
Я такого еще не проходил. Не думаю что кто-то даст ответ. уже 11 минут висит вопрос.
Ответы:
1) DHCP
2) DNS
3) ответ 2
4) APN
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.