Domashka3333
16.10.2020 19:37

На берегу реки стоит крестьянин с лодкой, а рядом с ним - волк, коза и капуста. Крестьянин должен переправиться сам и перевезти волка, козу и капусту на другой берег. Однако в лодку, кроме крестьянина помещается либо только волк, либо только коза, либо только капуста. Оставлять волка с козой или козу с капустой без присмотра нельзя - волк может съесть козу, а коза - капусту.

Как должен вести себя крестьянин?

Оформите план переправы, заполнив пропуски в таблице.

Подсказка:

Во 2 столбце могут быть следующие значения: волк, коза, капуста, никто.

В 3 столбце могут быть следующие значения: ⭢, ⭠.

Номер переправы

В лодке с крестьянином переправляется

Направление движения

1

2

3

4

5

6

7

Кулинар приготовил торт из трёх коржей и выложил его на зелёный поднос. Но оказалось, что вся посуда на столе красного цвета кулинару переложить все коржи на красный поднос, используя жёлтый как вс Обратите внимание, что за один ход можно перекладывать только один корж и на маленький корж нельзя класть корж большего размера. За сколько перекладываний кулинар перенесет торт на красный поднос?

Подсказка: Вспомните задачу с Ханойскими башнями.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Tigor111
02.02.2020 06:59

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.

0,0(0 оценок)
Ответ:
sshurik49
02.02.2020 06:59
FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота