Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением

@vladic1 · Регистрация: 10.02.2012

Author24 — интернет-сервис помощи студентам

Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением.

@Просто лис · 16.02.2012, 15:49

Pascal

Var a,b:real;
begin
Writeln('Vvedite 2 chisla');
readln(a,b);
if a>b
then begin
a:=(a+b)/2;
b:=(a*b)*2;
end
else begin
b:=(a+b)/2;
a:=(a*b)*2;
end;
Writeln(a,' ',b);
readln;
end.

@vladic1 3 / 3 / 1 Регистрация: 10.02.2012 Сообщений: 20
		1
	Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением 16.02.2012, 15:30. Показов 2180. Ответов 1 Метки нет (Все метки) Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением. 0

	16.02.2012, 15:49

Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением

Решение