Вычислить произведение 2/4*3/5*4/6*...*10/12
В Pascal​

У сучасному суспільстві більшість дітей знайомляться із персональним комп’ютером ще у дошкільному віці, легко засвою­ють роботу і проявляють захоплення ком­п’ютерними іграми та різноманітними видами мультимедійної інформації. У школі при вивченні шкільного курсу інформатики сучасного учня важко здивувати комп’ютерною технікою, тому дуже важливо вчителю інформатики пробудити інтерес, зацікавленість дитини до комп’ютерних наук.

Знайомство з інтернетом й робота в інтернеті — це найулюбленіші уроки дітей. Адже за до комп’ютера та інтернету діти можуть спілкуватися, дізнаватися новини, які відбуваються у світі, дивитися фільми, шукати необхідну інформацію та інше.

На уроках інформатики учні знайомляться з комп’ютерами, вони пізнають його склад, основні функції, можливості. Вони знайомляться з основними частинами комп’ютера, засвоюють клавіатуру, щоб мати можливість швидко друкувати та багато іншого.

Учні 2—7 класів не лише знайомляться з комп’юте­рами, а й користуються програмами для розвитку логіки, вивчення математики, географії та інших предметів. Крім того, що граються, вони ще й вчаться, розвивають пам’ять. Наприклад, застосовуються ігри на пошук предметів. Ці ігри викликають зацікавленість у дітей, вони грають і запам’ятовують одночасно.

Також учні мають можливість грати в ігри, які спрямовані на вивчення таблиці множення, інших матеатичних дій — складання, віднімання.

Є також ігри, які розвивають логіку та мислення у дітей. Вони їм дуже подобаються.

Використання молодшими школярами у своїй діяльності комп’ютера здійснює суттєвий вплив на різні сторони їхнього психічного розвитку. Виникає цілий ряд нових видів діяльності, тісно пов’язаних з використанням комп’ютерів: комп’ютерне моделювання, творче експериментування, ігри тощо; проявляються в повній мірі такі процеси, як мислення, уява, сприймання, пам’ять.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25