Написати программу в турбо паскалі! ! дано два - вопрос №437371 от kristinalogvin20 21.02.2021 02:43

Question

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

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