Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
Щелкнуть на имени листа правой кнопкой мыши и из контекстного меню выбрать пункт Переименовать.
Дано:
Мощность алфавита равна N=32
Количество символов к=140
Найти: Количество информации I-?
Решение:
по формуле
N=2^i
32=2^5 => i=5 - один символ алфавита весит 5 бит
Формула количества информации в тексте I=k*i
Значит I=140*5=700 бит или 87,5 байт
Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.