1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого. 2.способ.сначало переправляются 1 мальчик и 1 взрослый потом этот мальчик переправляется и забирает второго взрослого а потом возвращается за вторым мальчиком и переправляется назад вместе с ним.
Ответ дал: Гость
1)
var
i,k: integer;
a: array [1..14] of integer;
begin
k: =0;
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
end;
if k> 0 then
begin
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
2)
var
i,k: integer;
a: array [1..14] of integer;
begin
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
end;
for i: =1 to 7 do
begin
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
Ответ дал: Гость
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
Популярные вопросы