PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
6 способов
он может это сделать используя 6 способов
Учебник-5 запятых справа; кит-одна запятая слева; ель
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>
қазақстан республикасы мемлекеттік органдарының ресми электрондық үкіметі негізгі бет жаңалықтар мемлекеттік ә сынып оқушылары арасында өткен қазақ тілі мен әдебиеті мұғалімдері орыс тілі және әдебиеті ағылшын тілі информатика математика