Интернет желісінің мүмкіндіктерін пайдалана отырып, Intel компаниясының процессорларының даму эволюция-
сына өз беттеріңмен талдау жасаңдар.​

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.