1) в лодке поехали 2 разбойника, один остался на другом берегу, а второй поплил за другими, на старте остались один разбойник и три купца
2) разбойник взял на борт одного купца и висадил его к разбойнику на другой берег, итого осталось на старте 2 купца и 1 разбойник
3) разбойник взял еще одного купца и привез его на финиш, на старте осталось по ровну, а на финише 2 купца и 1 разбойник
4)разбойник взял купца, на финише 3 купца и 1 разбойник, а на старте 1 разбойник
5)разбойник перевез оставшегось разбойника, итого на финише 3 купца и 3 разбойника
Чес гря не понимаю, в чем заморочка... Тут же все указано. Безо всЯкого С++ в экселе мона сотворить этакий "калькулятор"))
есть постоянная 100 (гк золота)
и переменные Х и У, их вводит, я так понял, пользователь программулечки,
дальше сии переменные суммируются
и из них считают
70% - результат сообщают польщователю с пометкой "погибшие"
26% результат сообщают польщователю с пометкой "тяжело ранено"
4% результат сообщают польщователю с пометкой "Осталось в живых"
а постоянную100 делят на эти 4% от Х+У ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"
затем, если надо, обнулить Х и У для следкющего года.
А результаты, если надо получить данные за два года, прибавлять к предыдущим, уже посчитанным... Ну и еще куча вариантов обработки результатов... Вдруг нужна выборка по четным годам, вдруг еще чего)))
мона поставить переменную, считающую годы с каждым вводом Х и У...
В ощем - подвинтеся, дайте простор моей фантазии!))
N = 30;
Var
A:array[1..N] of byte;
i,Max:integer;
Begin
Max:=0;
For i:= 1 to N do
Begin
A[i]:=random(101);
if (A[i] mod 9 = 0)and(A[i] > Max) then Max:=A[i];
Write(A[i],' ');
End;
WriteLn;
if Max = 0 then WriteLn('В массиве нет элементов, кратных 9')
else WriteLn('Max = ',Max)
End.