Здравствуйте.Помогите,пожалуйста,решить задачи ** Паскале. Ввести с клавиатуры 2 числа....

Question

Здравствуйте.Помогите,пожалуйста,решить задачи на Паскале. Ввести с клавиатуры 2 числа. Напечатать а) большее, б) меньшее. Ввести с клавиатуры значения для Х. Вычислить и напечатать соответствующее значение для Y по правилу: А) Y=X+5, X<6 Б) Y=X-4, X<=100 Y=X/2, X>=6 Y=X*3, X<+100 Спасибо большое,заранее)))

Answer 1

а) var a,b,c: integer;
begin
read(a,b);
if a>b then write(a)
else write(b);
end;

 

б)  var a,b,c: integer;

begin
read(a,b);
if a>b then write(b)
else write(a);
end;

 

А)

var x,y: real;
begin
read(x);
if X<=100 then write('Y=',X/2);<br>end;

 

 

Б)

var x,y: real;
begin
read(x);
if X>=6 then write('Y=',X*3);
end;

 

а X<+100 скорее всего не правильно написано</span>