Решить две задачи в паскаль

1. Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее - их удвоенным произведение.

2. Дано 2 различных числа a и b, если их сумма меньше 65 то большее число заменить произведением чисел, в противном удвоенной суммой а другое число без изменений

Подсказка задача решается через команду IF

Question

Информатика

Леонинка

7 октября, 11:55

Решить две задачи в паскаль

1. Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее - их удвоенным произведение.

2. Дано 2 различных числа a и b, если их сумма меньше 65 то большее число заменить произведением чисел, в противном удвоенной суммой а другое число без изменений

Подсказка задача решается через команду IF

+1

Ответы (1)

Знаете ответ на вопрос?

Петяха · Answer 1

1.

program XandY

var x, y: real;

begin

readln (x, y) ;

if (x > y) then

begin

y : = (a + b) div 2

x : = 2*x*y;

writeln ('x = ', x, ', y = ', y)

end.

2.

program AandB

var a, b;

begin

readln (a, b) ;

if ((a + b) < 65) then

if (a > b) then a : = a*b else b : = a*b

else if (a > b) then a : = 2 * (a + b) else b : = 2 * (a + b)

end.