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

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

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

Question

Информатика

Василина

25 августа, 13:55

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

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

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

+3

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