Перевести этот код delphi в паскаль, program taskformula; uses var x, a, xn, xk, dx, sum, multiplnegative: real; countnegative: integer; j, m, f: real; y: real; begin writeln('a --> '); read(a); writeln(' xn --> '); read(xn); writeln(' xk --> '); read(xk); writeln(' dx --> '); read(dx); sum : = 0; multiplnegative : = 1; countnegative : = 0; x : = xn; while (x < = xk) do begin if (a+x < 0) then begin f: =(a+x)*-1; f: =ln(f)*(-1); j: = roundto(abs(a-sqr(x)) * f, -5); end else j: = roundto(abs(a-sqr(x)) * ln(a+); m: = power(sqr(x), 1/3)+ power(a, 1/5); if j< 0 then begin j: =j*(-1); j: = power(j, 1/3); j: =j*(-1); end else j: = power(j, 1/3); y: = roundto(j/m, -5); write('x= ', x: 5: 3, ' '); writeln('y= ', y: 7: 5); if y< 0 then begin sum : = sum + y; multiplnegative : = multiplnegative * y; inc(countnegative); end; x: = x + dx; end; writeln; writeln(' y = ', countnegative); writeln('y = ', sum: 7: 5); writeln(' y = ', multiplnegative: 7: 5); readln; end.

Var   y, x, a, xn, xk, dx, sum, multiplnegative: real;     countnegative: integer;     j, m, f: real; begin   write('a --> ');     read(a);     write(' xn --> ');     read(xn);     write(' xk --> ');     read(xk);     write(' dx --> ');     read(dx);   sum : = 0;     multiplnegative : = 1;     countnegative : = 0;     x : = xn;   while (x < = xk) do    begin     if (a + x < 0) then begin       f : = (a + x) * -1;         f : = ln(f) * (-1);         j : = round(abs(a - sqr(x)) * f * 100000) / 100000;       end      else        j : = round(abs(a - sqr(x)) * ln(a + x) * 100000) / 100000;       m : = power(sqr(x), 1 / 3) + power(a, 1 / 5);       if j < 0 then begin       j : = j * (-1);         j : = power(j, 1 / 3);         j : = j * (-1);       end      else        j : = power(j, 1 / 3);     y : = round(j / m * 100000) / 100000;       write('x= ', x: 5: 3, ' ');       writeln('y= ', y: 7: 5);       if y < 0 then      begin       sum : = sum + y;         multiplnegative : = multiplnegative * y;         inc(countnegative);       end;       x : = x + dx;     end;     writeln;     writeln(' y = ', countnegative);     writeln('y = ', sum: 7: 5);     writeln(' y = ', multiplnegative: 7: 5);   readln; end.

Как уже отмечено в предыдущей теме информационная безопасность – многогранная область деятельности, в которой успех может принести только систематический, комплексный подход.

Обеспечение информационной безопасности в большинстве случаев связано с комплексным решением трех задач:

обеспечением доступности информации;

обеспечением целостности информации;

обеспечением конфиденциальности информации.

Именно доступность, целостность и конфиденциальность являются равнозначными составляющими информационной безопасности.

Информационные системы создаются для получения определенных информационных услуг. Если по тем или иным причинам предоставить эти услуги пользователям становится невозможно, то это, очевидно, наносит ущерб всем пользователям.

Роль доступности информации особенно проявляется в разного рода системах управления – производством, транспортом и т.п. Менее драматичные, но также весьма неприятные последствия – и материальные, и моральные – может иметь длительная недоступность информационных услуг, которыми пользуется большое количество людей, например, продажа железнодорожных и авиабилетов, банковские услуги, доступ в информационную сеть Интернет и т.п.

Доступность – это гарантия получения требуемой информации или информационной услуги пользователем за определенное время.

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

Program pr; var st: string;     n: integer; begin writeln ('введите число от 1-го до 100'); readln(n); st: ='';   case n of   100: st: =st+'сто';   10: st: =st+'десять';   11: st: =st+'одиннадцать';   12: st: =st+'двенадцать';   13: st: =st+'тринадцать';   14: st: =st+'четырнадцать';   15: st: =st+'пятнадцать';   16: st: =st+'шестнадцать';   17: st: =st+'семнадцать';   18: st: =st+'восемнадцать';   19: st: =st+'девятнадцать';   else   begin   case n div 10 of   2: st: =st+'двадцать ';   3: st: =st+'тридцать ';   4: st: =st+'сорок ';   5: st: =st+'пятьдесят ';   6: st: =st+'шестьдесят ';   7: st: =st+'семьдесят ';   8: st: =st+'восемьдесят ';   9: st: =st+'девяносто ';   end;   case n mod 10 of   1: st: =st+'один';   2: st: =st+'два';   3: st: =st+'три';   4: st: =st+'четыре';   5: st: =st+'пять';   6: st: =st+'шесть';   7: st: =st+'семь';   8: st: =st+'восемь';   9: st: =st+'девять';   end;   end; end; writeln(st); end.