begin (1..199).Where(x -> x mod 7 = 0).Average.Print end.
или
var i,s,n: integer; begin while i+7<200 dobegin i := i + 7; s := s + i; n := n + 1; end; write(s/n); end.
Пример работы:
Спасибо
Ответ дал: Гость
нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.
Популярные вопросы