Заменить из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел

@HAN777 · Регистрация: 25.11.2012

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

Составить программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел.

@Reveng · 25.11.2012, 17:08

Pascal

var
  a, b, c : real;
 
begin
Write('Введите два числа: ');
Readln(a, b);
if (a > b) then 
  begin
  c := a;
  a := 2*a*b;
  b := (c + b)/2;
  end else if (a < b) then
    begin
    c := b;
    b := 2*a*b;
    a := (a + c)/2 ;
    end;
Writeln('a = ', a, ' b = ', b);  
end.

@HAN777 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 102
		1
	Заменить из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел 25.11.2012, 17:01. Показов 9685. Ответов 1 Метки нет (Все метки) Составить программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел. 0

	25.11.2012, 17:08

Опции темы

Заменить из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел

Решение