Заменить из двух чисел меньшее число модулем их разности, а большее — модулем произведения

28.09.2011, 14:26. **Просмотров** 6811. **Ответов** 1

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

@ray_nixon · 28.09.2011, 21:09

Pascal

program z1;
uses crt;
var a,b:real;
begin  clrscr;
write('vvedite a ');readln(a);
write('vvedite b ');readln(b);
If a>b then begin a:=abs(a*b);
                  b:=abs(a-b);
                  end else begin a:=abs(a-b);
                                 b:=abs(a*b);
                                 end;
writeln('a= ',a:0:2,' ','b= ',b:0:2);
repeat until KeyPressed;
end.

Констанция96
		1
	Заменить из двух чисел меньшее число модулем их разности, а большее — модулем произведения 28.09.2011, 14:26. Просмотров 6811. Ответов 1 Метки нет (Все метки) составьте программу, заменяющую из двух данных чисел меньшее число модулем разности, а большее - модулем произведения этих чисел.

Опции темы

Заменить из двух чисел меньшее число модулем их разности, а большее — модулем произведения

Решение