Var arr:array [1..6] of integer;i,k,x,s,d,j:integer;beginrandomize;d:=0;for j:=1 to 1000 dobeginfor i:=1 to 6 do arr[i]:=1;k:=1;s:=1;while k<>0 do begin x:=random(6)+1; arr[x]:=0; if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and(arr[5]=0) and (arr[6]=0) then k:=0; s:=s+1; end;d:=d+s; end;Writeln('В среднем цикл отработал ',d/1000,' раз'); end.
В среднем цикл отработал 15.946 разПри многократном запуске<span> получается около </span><span>16 раз</span>
Написали бы язык программирования. Вот на java.
<span>import java.io.BufferedReader<span>;
</span>import java.io.IOException<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in))<span>;
</span> long A=Long.parseLong(reader.readLine())<span>;
</span> long B=Long.parseLong(reader.readLine())<span>;
</span> if((A<0)||(B<0)){
System.exit(0)<span>;
</span> }
long sum=0<span>;
</span> for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i<span>;
</span> }
}
System.out.println(sum)<span>;
</span> }
}
</span>
В S одиннадцать раз прибавляется число 12
S=12*11 =121
ans = max(map(float, input("Введите 3 числа: ").split()))
print("Максимальное из введённых - " + str(ans))