Var
x, y, z : real;
function min (a, b : real) : real;
begin if a < b then min := a else min := b; end;
function max (a, b : real) : real;
begin if a > b then max := a else max := b; end;
begin
read (x, y, z);
writeln (min (x*y, y/z));
writeln (max (max (exp(4*x), 1/(sqr(y)), ln(2*z));
end.
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>