1.Волк, коза и капуста. На берегу реки стоит крестьянин с лодкой, а рядом с ним находятся волк, коза и капуста.
Крестьянин должен переправиться сам и перевезти волка, козу и капусту на другой берег. Однако в лодку кроме крестьянина помещается либо только волк, либо только коза, либо только капуста.
Оставлять же волка с козой или козу с капустой без присмотра нельзя — волк может съесть козу, а коза — капусту.
Как должен вести себя крестьянин?
Написать пошаговый алгоритм крестьянина
2. Один солдат (С) подошел к реке, через которую лежал его дальнейший путь. У берега
стояла лодка с сидящими в ней двумя мальчиками (М1, М2). Солдат по мальчиков
перевести его на другой берег. Составьте алгоритм переправы, если известно, что лодка
вмещает только одного солдата, либо двух мальчиков?
Замечание. По завершении переправы солдата, лодка с мальчиками должна находиться на исходном берегу реки.
Эту задачу решить в табличной форме
var
a,b,c:integer;
begin
Write('Введи a,b,c: '); Read(a,b,c);
if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
else Writeln('Все числа различные')
end.
Тестовое решение:
Введи a,b,c: 6 3 -12
Все числа различные
Введи a,b,c: 5 -4 5
Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073
var
n:string;
a,b:char;
begin
Write('Введи натуральное число n: '); Readln(n);
Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
else Writeln('В числе цифры '+a+' нет');
if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
else Writeln('В числе цифры '+b+' нет')
end.
Тестовое решение:
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
fiba,fibb,fib:longint;
begin
Write('Введи натуральное число (1-46): '); Read(n);
if n<3 then Writeln('Число Фибоначчи равно 1')
else begin
fiba:=1; fibb:=fiba;
for i:=3 to n do begin
fib:=fiba+fibb;
fiba:=fibb; fibb:=fib
end;
Writeln('Число Фибоначчи равно ',fib)
end
end.
Тестовое решение:
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233