Question

Составьте программу вычисления значения y: на паскале

Answer 1

//Pascal
var
  x, y: real;
begin
  write('x = '); readln(x);
  if x > 100 then
    y := 5 * x + 6
  else
  if ((x >= 10) and (x <= 100)) then
    y := 200 * x
  else
  if x < 10 then
    y := x / 2;
  writeln('y = ', y);   
end.