174(10)=10101110(2)=<span>256(8)</span>
Var
f: file of real;
a, amin, amax: real;
begin
Assign(f, 'input.dat');
Reset(f);
amin := 1e-20;
amax := 1e20;
while not Eof(f) do
begin
read(f, a);
if amin > a then amin := a;
if amax < a then amax := a
end;
Close(f);
writeln('Сумма минимального и максимального элементов равна ', amin + amax)
end.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Слов: ',ReadlnString('Строка:').ToWords.Count)
end.
<u>Пример</u>
Строка: А роза упала на лапу Азора.
Слов: 6
1.256=2**8=>на один пиксель выделяется 8 бит памяти.300 КБ=300*8*1024=2457600 бит.Общий общий объем изображения=Кол-во строк в изображении *Кол-во пикселей в строке*размер пикселя=>Кол-во пикселей=2457600:8=307200 пикселей.
2.4=2**=>на один пиксель выделяется 2 бита.Объем изображения=300*200*2=120000 бит.
16=2**4=>на один пиксель 4 бита.=>120000:4=30000 пикселей
(¬(M V L) /\ K) → ((¬K /\¬M) \/ N)
(¬M /\ ¬L /\ K) → ((¬K /\¬M) \/ N)
ложно если первая часть 1 а вторая 0
¬M /\ ¬L /\ K = 1 => m=0, l=0,k=1
(¬K /\¬M) \/ N = 0
подставляем
(0 /\1) \/ N = 0 => n=0