Program jij;
uses crt;
var a, b, c, d:integer;
Begin
clrscr;
writeln(''Введите четыре числа через пробел );
readln(a, b, c, d);
If a>b then max:=a; else max:=b;
If c>max then max:=c;
If d>max then max:=d;
If a<b then min:=a; else min:=b;
If c<max then min:=c;
If d<max then min:=d;
writeln('Максимальное ',max,' Минимальное ',min);
readln;
End.
Program n1;
var a: array[1..15] of integer;
sum,i: integer;
begin
randomize;
write('исходный массив: ');
sum:=0;
for i:=1 to 15 do
begin
a[i]:=random(101);
write(a[i],' ');
if (a[i] mod 7=0) or (a[i] mod 17=0) then
sum:=sum+a[i];
end;
writeln;
write('сумма: ',sum);
end.
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
Берем, например, число 29. Поскольку это число нечетное, отнимаем от него единицу, - записываем ее отдельно, а число делим пополам. Получилось 14.<span> (1)
</span>Число 14 - четное. Отнимать от него единицу не нужно, поэтому слева от "запомненной" единицы запишем 0. Число делим пополам, получаем 7. <span>(0)
</span>Число 7 - опять нечетное. Отнимаем от него 1, записываем отдельно и делим число пополам. Получаем 3. <span>(1)
</span>Число 3 - нечетное. Отнимаем 1, записываем ее отдельно, и результат делим пополам, получаем 1. <span>(1)
</span>Последнюю единицу уже не делим, а просто записываем слева от полученного результата.
Смотрим на результат. У нас получилось двоичное число - это и есть двоичный код числа 29.
T >= 6 - ложно, например 11
t < 9 - ложно, например 9.30
t >= 9 - ложно, например 11
t >= 10 - ложно, например 11
t < 10 - истинно
(t >= 6) и (t < 10) - ложно, например 5
