Помогите пожайлуста ) Даны два неравных числа a и b.Меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..пожаалуйста помогите
Помогите пожайлуста ) Даны два неравных числа a и b.Меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..пожаалуйста помогите
Гость
Ответ(ы) на вопрос:
Гостьprogram qwertr;
var a,b,c: integer;
begin
read (a,b)
if (a
Гостьuses crt;
var a, b, c, i :integer;
begin
clrscr;
writeln ('Введите числа');
readln (a, b);if a>b then
writeln ('a = ', (a-b)/2:0:10, ' b = ', (a+b)/b:0:10);
if a