Вывести на печать значения функции z=in(x) + tg(2x), большие 1, для x, изменяющегося на отрезке [3, 8] с шагом 0, 9

var x1: real;

function z(x: real): real;

begin

z: =ln(x)+tg(2*x);

end;

begin

x1: =3;

while x1< =8 do

begin

writeln('z=', z(x1));

x1: =x1+0.9;

end;

end.

технологии записи данных

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

намагничиваются его области микрозоны

точнее перемагничиваются.

Program parampampam;   uses crt;   var  i: integer; {счетчик}  s: integer;   begin  clrscr; {очистка экрана}  writeln ('программа выводит числа от 1 до 99, сумма цифр которых равна числу s');   writeln ('введите число s, от 0 до 18: ');   {ввод числа s с проверкой на корректность}  repeat  readln (s);   if (s> 18) or (s< 0) then  writeln ('неверный ввод. повторите')  until (s< =18) and (s> =0);   {вывод нужных чисел на экран (цикл с предусловием)}  for i : = 1 to 99 do  if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}  write (i, ' ');   repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}  end.