Var i,n: integer;
begin
n:=1;
for i:=1 to n do begin
n:=n*i;
end;
writeln (n);
end.
Крупнейшая в мире локальная сеть создана в Европейском Центре ядерных исследований. Она объединяет несколько тысяч компьютеров и работает с Большим адронным коллайдером. Внутри центра проложено 35000 километров оптического кабеля.
<span>Информация, которую дает коллайдер и другие ускорители, проходит обработку в детекторе и через локальный вычислительный центр поступает в главный центр хранения и обработки данных. Ежедневно компьютерам нужно принять, сохранить, обработать и распределить около одного петабайта данных. Количество ежегодно производимой информации, записанной на CD-диски, было бы равно двадцатикилометровой стопке.</span>
В данной программе k - это количество шагов, т. е. от 6 до 12 включительно. Получается 7 шагов. Если совсем не понимаешь, то проще расписать каждый шаг от 6 до 12.
Например,
k:= 6; s:= 0+10
k:= 7; s:= 10+10
k:= 8; s:= 20+10
...
k:= 12; s:= 60+10