aboderu
03.12.2021 05:00

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Tadashimi2016
26.05.2020 14:15

var a, b, s, p:real;

begin

readln(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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота