Сестры аня и оля подсчитали свои денежные накопления , у них оказались разные суммы. какая сестра должна дать другой денег и сколько,что бы у обеих сестер суммы стали равными?
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<b) then begin c:=((a+b)/2)-a;writeln ('Даша должна дать Маше ',c); end; if (a=b) then writeln ('У них равное количество денег'); end.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('Количество элементов='); var b:=ArrRandomReal(n,-10,20); b.Println(', '); var mx:=b.Max; var c:=b.Where(x->x<>mx); c.Println(', ') end.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var d:array[1..5] of integer:=(1,3,5,7,9); for var i:=1 to 5 do for var j:=1 to 5 do for var k:=1 to 5 do for var l:=1 to 5 do Write(d[i],d[j],d[k],d[l],' ') end.
begin
writeln ('Введите количество денег Маши и Даши');
read (a,b);
if (a>b) then
begin
c:=((a+b)/2)-b;writeln ('Маша должна дать Даше ',c);
end;
if (a<b) then
begin
c:=((a+b)/2)-a;writeln ('Даша должна дать Маше ',c);
end;
if (a=b) then writeln ('У них равное количество денег');
end.