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

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

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

Question

Информатика

Маруля

16 апреля, 19:15

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

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

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

+4

Ответы (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.