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

Question

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

Viktor

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

Есть ответ

17.12.2022

499

Ответ

Answer 1 · 17.12.2022

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

б) var a,b,c: integer;

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

А)

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

а X

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

Ответ

а) var a,b,c: integer;beginread(a,b);if a>b then write(a)else write(b);end; б) var a,b,c: integer; beginread(a,b);if a>b then write(b)else write(a);end; А) var x,y: real;beginread(x);if X=6 then write('Y=',X*3);end; а X

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

б) var a,b,c: integer;

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

А)

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

а X