◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
Var s,ss,s1,s2:string; p,p1,p2,max,min:integer; begin writeln('Введите строку:'); readln(s); ss:=s+' '; max:=0; min:=255; p:=pos(' ',ss); while p>0 do begin if p>max then begin max:=p; s1:=' '+copy(ss,1,p); end; if p<min then begin min:=p; s2:=' '+copy(ss,1,p); end; delete(ss,1,p); p:=pos(' ',ss); end; s:=' '+s+' '; p1:=pos(s1,s); p2:=pos(s2,s); if p1>p2 then begin delete(s,p1,max+1); insert(s2,s,p1); delete(s,p2,min+1); insert(s1,s,p2); end else begin delete(s,p2,min+1); insert(s1,s,p2); delete(s,p1,max+1); insert(s2,s,p1); end; s:=trim(s); writeln(s); end.
Пример: Введите строку: поменяйте местами самое длинное и самое короткое слово и местами самое длинное поменяйте самое короткое слово
x: real;
begin
readln(x);
write(sqrt((2 * x + 3) / (x - 4)));
end.