Розгадайте ребуси
https://dbimg. eu/i/xrj4dzpv. png
https://dbimg. eu/i/pjo8gyme. jpg
https://dbimg. eu/i/obu31s2k. jpg
https://dbimg. eu/i/tgc6nwfg. jpg

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.

1.  примеров можно много: например прикладное по adobe:

-adobe photoshop используется в дизайне

-adobe dreamweaver в сайтостроении

и т.п.

2. 

-программа, выполняющая дефрагментацию диска (оптимизация размещения информации на жестком диске, для более быстрого доступа к ней), например  o& o defrag.

-антивирусное по, например dr. web или kaspersky antivirus

-пргораммы, оптимизирующие работу ос, например ccleaner

-программы поиска и устранения ошибок в реестре, например registry booster

-файловые менеджеры, например total commander

-программы диагностики системы, такие как everest или aida

3.

-представление учебного материала в форме презентаций (материал, который сопровождается визуальным рядом, более интересен и легче усваивается)

-доступ к ресурсам интернета (например, доступ к , которую в печатном виде достать проблематично)

-электронные тесты (удобнее, чем в печатном виде, хотя бы потому, что проще исправлять свои ошибки: ) )

-использование обучающих программ (те же преимущества, что и у презентаций)

программа на turbo pascal 7.1:

содержание progs.pas:

{$n+}{-директива для подключения 8087 препоцессора}uses output1; {здесь  подключаем модуль  output1}

var p: double;

function f1(p: double): double; beginf1: =sqr(p); end;

procedure p1(var p: double); beginreadln(p); p: =f1(p); end;

beginwrite('введите длину стороны квадрата = '); p1(p); p2(p); end.

содержание output1.tpu:

{$n+}{-директива для подключения 8087 препоцессора}unit output1; {здесь объявляем модуль  output1}

interface

procedure p2(p: double);

implementation

procedure p2; beginwriteln('площадь квадрата = ',p: 0: 5); end;

end.