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
Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До
Анимация процесса копирования или архивации
_____________________________________
50(в 10)=110010 (в 2): делим 50 на 2 столбиком и записываем остаток в обратно порядке:
50/2=25 (ост. 0)
25/2=12 (ост 1)
12/2=6 (ост 0)
6/2=3 (ост 0)
3/2=1 (ост 1)
1/2=... (ост 1), переписываем в обратно порядке остатки