Меньшее из двух чисел z, s заменить их полусуммой, а большее - их удвоенным произведением. Паскаль

Question

Информатика

Надр

6 мая, 04:31

Меньшее из двух чисел z, s заменить их полусуммой, а большее - их удвоенным произведением. Паскаль

+4

Ответы (1)

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

Аксаит · Answer 1

Var

z, s: integer;

begin

write ('Введите числа: ') ;

read (z, s) ;

if z < s

then writeln ('Новые значения:', #10, 'z=', (z + s) / 2, ' s=', z * s * 2)

else if z > s

then writeln ('Новые значения:', #10, 'z=', z * s * 2, ' s=', (z + s) / 2)

else writeln ('Числа равны') ;

end.