На берегу реки стоит крестьянин с лодкой, а рядом с ним - волк, коза, капуста. крестьянин должен переправиться - id148273020200121 от викуха308 21.01.2020 06:29

Question

Информатика: На берегу реки стоит крестьянин с лодкой, а рядом с ним - волк, коза, капуста. крестьянин должен переправиться сам и перевезти волка, козу и капусту на другой берег. однако в лодку кроме крестьянина помещается либо только волк, либо только коза, либо только капуста. оставлять волка с козой либо козу с капустой без присмотра нельзя (понятно почему). как должен вести себя крестьянин?

викуха308 · Accepted Answer

1. Для цикла For

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
    p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
    p:=p*x;
    i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
    p:=p*x;
    i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.

MOGZ ответил