Даны два действительных числа. составьте программу. - вопрос №5279785 от maral1505 14.07.2021 21:30

Question

Информатика: Даны два действительных числа. составьте программу. меньшее из этих чисел заменить их разностью,а большее их полусуммой

maral1505 · Answer

Var a,b,c:real;beginwriteln( Введите два действительных числа А и В: );readln(a,b);if a b then beginc:=a;a:= b-a;b:= 0.5*(b+c);endelsebeginc:=b;b:= b-a;a:= 0.5*(a+c);end;Writeln( A = ,a, B = ,b);end....