leon123
1. var x,y,z,d:Real; min: Real; begin Writeln('Введите числа'); Readln(x); Readln(y); Readln(z); Readln(d); if (x > y) then min:=y else min:=x; if (z > d) then min:=d else min:=z; end. 2. var x, res:Real; begin Writeln('Введите число Х'); Readln(x); if (x < 1) then res:=10*x else if (x >= 1) and (x < 3) then res:=15*(x*x) else res:=2*x+1; Writeln(res); end. 3. var a,b:Real; min,max: Real; begin Writeln('Введите числа'); Readln(a); Readln(b); if (a > b) then begin min:=b; max:=a; end else begin min:=a; max:=b; end; Writeln(max/min); end.
Answers & Comments
var
x,y,z,d:Real;
min: Real;
begin
Writeln('Введите числа');
Readln(x);
Readln(y);
Readln(z);
Readln(d);
if (x > y) then min:=y
else min:=x;
if (z > d) then min:=d
else min:=z;
end.
2. var x, res:Real;
begin
Writeln('Введите число Х');
Readln(x);
if (x < 1) then res:=10*x
else if (x >= 1) and (x < 3) then res:=15*(x*x)
else res:=2*x+1;
Writeln(res);
end.
3. var a,b:Real;
min,max: Real;
begin Writeln('Введите числа');
Readln(a);
Readln(b);
if (a > b) then
begin
min:=b;
max:=a;
end
else
begin
min:=a;
max:=b;
end;
Writeln(max/min);
end.