Сестры Маша и Даша подсчитали свои денежные накопления, у них оказались разные суммы. Какая сестра должна дать другой денег и сколько, чтобы у обеих сестер суммы стали равными? Pascal ABC

Question

Информатика

Лидуня

5 октября, 16:29

Сестры Маша и Даша подсчитали свои денежные накопления, у них оказались разные суммы. Какая сестра должна дать другой денег и сколько, чтобы у обеих сестер суммы стали равными? Pascal ABC

+1

Ответы (1)

Знаете ответ на вопрос?

Мариамночка · Answer 1

Var a, b, c:real;

begin

writeln ('Введите количество денег Маши и Даши') ;

read (a, b) ;

if (a>b) then

begin

c: = ((a+b) / 2) - b; writeln ('Маша должна дать Даше ', c) ;

end;

if (a
begin

c: = ((a+b) / 2) - a; writeln ('Даша должна дать Маше ', c) ;

end;

if (a=b) then writeln ('У них равное количество денег') ;

end.