Даны два действительных числа. составьте программу. - вопрос №5280462 от danilejik 15.12.2022 23:55

Question

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

danilejik · 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....