Ответ:
схему смотри на приложенном рисунке внизу
Эта задача решается с конца. У всех девочек есть по 32 яблока, так получилось после хода Насти, то есть до её хода у Кати, Лизы и Маши было по 16 (и Настя дала им по 16), а у самой Насти было 80 (16+16+16+32 = 80).
Запишем в виде таблички:
--К-- --Л-- --М-- --Н--
16 16 16 80
32 32 32 32
До Машиного хода у Кати и Лизы было по 8, у Насти 40, у самой Маши 8+8+40+16=72
--К-- --Л-- --М-- --Н--
8 8 72 40
16 16 16 80
32 32 32 32
До хода Лизы:
--К-- --Л-- --М-- --Н--
4 68 36 20
8 8 72 40
16 16 16 80
32 32 32 32
До хода Кати, то есть сначала:
--К-- --Л-- --М-- --Н--
66 34 18 10
4 68 36 20
8 8 72 40
16 16 16 80
32 32 32 32
Ответ: Катя = 66, Лиза = 34, Маша = 18, Настя = 10
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;
<span>у составных условий отбора больше</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(5);
a.PrintLines;
a.Println;
var b := ArrGen(5, i -> 2 * i, 1);
b.Println;
var c := ArrRandom(7, -10, 10);
c.PrintLines
end.