//2
var
x:Real;
Begin
Read(x);
Writeln(abs(x));
end.
//3
var
a,b:Real;
Begin
Read(a, b);
Writeln('Минимум -> ', min(a,b));
Writeln('Удвоенный минимум -> ', min(a,b)*2);
end.
Задача решается с помощью составления обычной пропорции (см. рисунок).
2³³ бит = 8589934592 бит = 1073741824 байт = 1048576 кбайт = 1024 мбайт
1024 / 1.4 ≈ 731.4
Значит для хранения информации о яйцеклетке требуется 732 дискеты.
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.