Написати программу в турбо паскалі! ! дано два дійсних - вопрос №438048 от shishovtopking 16.09.2022 22:37

Question

Информатика: Написати программу в турбо паскалі! ! дано два дійсних числа. менше з них замінити півсумою цих чисел,а більше - їх добутком!

shishovtopking · Answer

var a, b, s, p:real;beginreadln(a,b);s:=(a+b)/2;p:=a*b;if a b then begin a:=s; b:=p; end else begin a:=p; b:=s; end;writeln( a = ,a,  b = ,b);end....