Задачи в Паскаль.

1. С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.

2. Введены 3 числа, найти наибольшее.

Question

Информатика

Леда

18 апреля, 04:42

Задачи в Паскаль.

1. С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.

2. Введены 3 числа, найти наибольшее.

+2

Ответы (1)

Знаешь ответ?

Зорина · Answer 1

Первое:

Program nechet;

var a, b:real;

begin

readln (a);

readln (b);

if a
writeln ('Первое число=', (a+b) / 2, ' Второе число=', (a*b) * 2)

else

writeln ('Первое число=', (a*b) * 2, ' Второе число=', (a+b) / 2)

end.