Встарой датской игре, положившей начало современной - вопрос №290586 от leyla210 14.04.2020 11:10

Question

Информатика: Встарой датской игре, положившей начало современной игре в кегли, в ряд вплотную друг к другу располагаются 13 деревянных кеглей. одним ударом шара можно сбить либо одну, либо две соседние кегли. игроки бросают поочерёдно по одному шару, а цель игры состоит в том, чтобы сбить последнюю кеглю. горный гном, с которым рипванвинкль играет эту партию, только сбил кеглю номер 2. рип должен выбрать одну из 22 возможностей: сбить одну из 12 кеглей или метнуть шар так, чтобы сбить любую из 10 пар соседних

leyla210 · Answer

Var  n,i,s,k,p:integer;begin  p:=1;  write( Введите число );  readln(n);  writeln( среднее арифметическое от 1 до ,N, = ,(n+1)/2);  for i:=1 to n do begin    if (i mod 3 = 0) and (i mod 2 = 0) then begin      s:=s+i; k:=k+1;     end;    p:=p*i  end;  writeln( среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ,N, = ,s/k);  writeln( произведение чисел от 1 до ,N, = ,p); end.Тестовое решение:Введите число 10 среднее арифметическое от 1 до 10 = 5.5 среднее арифметическое целых,чётных,кратных...