Выполните на компьютере программу evklid. протестируйте ее на значениях м= 32, n = 24; м = 696, n = 234.

Нахождение наибольшего общего делителя, если я правильно понял? program evkild; var   a, b: integer; begin   write('введите a: ');   readln(a);   write('введите b: ');   readln(b);   while (a < > 0) and (b < > 0) do   if a > = b then       a : = a mod b   else       b : = b mod a;   writeln('наибольший общий делитель = ', a + b);   readln; end.

1 способ.

сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.

сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина.  потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.

 

 

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.