. К реке одновременно подошли три купца и три разбойника.Всем необходимо было переправится на противоположный берег. У берега стояла лодка, которая могла поместить только двух человек. Купцы боязливо поглядывали на разбойников,так как знали, что во время переправы на берегу число разбойников и купцов будет одинаковым,то разбойники не тронут купцов;если же число разбойников превысит число купцов хотя бы на одного человека, то разбойники убьют купцов.Перед купцами стояла сложная задача, но она была ими решена- все перебрались на тот берег и жертв не было. Как сумели переправиться купцы и разбойники и сколько рейсов совершила лодка? За рейс следует считать движение лодки в одном направлении. Придумайте обозначьте и оформите план переправы в таблице.

program z1;

var a:array [1..100,1..100] of integer;

b:array [1..100] of integer;

n,m,i,j,s:integer;

begin

write ('Введите количество строк (n<=100) ');

read (n);

write ('Введите количество столбцов (m<=100) ');

read (m);

writeln ('Массив А');

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=Random(19)-9;

write(a[i,j]:4)

end;

writeln

end;

for j:= 1 to m do

begin

s:=0;

for i:=1 to n do if  (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];

b[j]:=s

end;

writeln ('Массив B');

for j:= 1 to m do write (b[j]:4)

end.

ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:  

Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.  

НАЗНАЧЕНИЕ ПРОГРАММЫ:  

Расчет количества рулонов обоев для указанной комнаты.  

ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:  

Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.  

ВВОД  

Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).  

ВЫВОД  

Выводится количество рулонов n

Объяснение: