Function Max(a,b:real):real;
begin
if a>b then Max:=a
else Max:=b
end;
var
a,b,c,d,e,m:real;
i:integer;
begin
Writeln('Введите 5 чисел: ');
Read(a,b,c,d,e);
m:=Max(a,b);
m:=Max(m,c);
m:=Max(m,d);
m:=Max(m,e);
Writeln('Максимум: ',m)
end.
<u>Пример</u>
Введите 5 чисел:
2.3 4 -5.16 0 0.087
Максимум: 4
76 символов. Считая пробелы. Это тоже символы
=МИН(число1,число2....)
и
=СУММ(выбрать диапазон)
Крайний левый (восьмой) разряд отводится под знак числа: 0 для положительных и 1 для отрицательных
32 = 00100000
-32 = 10100000 - в прямом коде
= 10100000 - в дополнительном коде
102 = 01100110
-102 = 11100110 - в прямом коде
= 10011010 - в дополнительном коде
126 = 01111110
-126 = 11111110 - в прямом коде
= 10000010 - в дополнительном коде