Вычислите информационный объём Запишите решение вычисления объёма информации День осенний совсем неласково пригорюнился принахмурился ветром холодом приукрасился и уселся в лесу насупленный

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.

описание - это собственно его разработка, написание кода, составление формул и т.п.

обращение - это просто сказать  - а ну ка выполнись с такими то параметрами, и оно там выполняется, а мы может и знать не знаем чего оно там конкретно делает.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.