1. есть исполнитель «перевозчик», который перевозит через реку волка, козу и капусту. напишите алгоритм с обязательным использованием подпрограммы перевоза через реку волка, козы и капусты, если ски «перевозчика» содержит 5 команд: взять козу, взять волка, взять капусту, высадить, переплыть. в лодку может поместиться только один предмет или животное. нельзя оставлять на берегу одних волка с козой и козу с капустой. нужно использовать !

нач

взять козу

делай ПЕРЕПЛЫТЬ

переплыть

взять волка

делай ПЕРЕПЛЫТЬ

взять козу

делай ПЕРЕПЛЫТЬ

взять капусту

делай ПЕРЕПЛЫТЬ

переплыть

взять козу

делай ПЕРЕПЛЫТЬ

кон

Процедура ПЕРЕПЛЫТЬ
переплыть

высадить

конец процедуры

Попробуй так,тут есть процедура)

Целое, целочисленный тип данных (англ. Integer), в информатике — один из и самых рас типов данных в языках программирования. Служит для представления целых чисел.

Множество чисел этого типа представляет собой конечное подмножество бесконечного множества целых чисел, ограниченное максимальным и минимальным значениями.

В программировании различают беззнаковые целые числа и целые числа со знаком. Знак числа обычно кодируется старшим битом машинного слова. Традиционно, если старший бит равен 1, то число считается отрицательным, только, если оно не определено как беззнаковое.

Количество чисел в машинном

Объяснение:

Var a,b:array [1..100,1..100] of real;

   current_row,current_column,rows,columns:integer;

begin

 readln(rows);

 readln(columns);

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do begin

     read(a[current_row,current_column]);

     b[current_row,current_column] :=a [current_row,current_column] / 8;

   end;

 end;

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do

     write(b[current_row,current_column]:4, ' ');

 end;

end.