8", Візнику потрібно перевезти в човні через пуі капусту. У човні, крім візника, уміщується або тількиВовк, або тільки коза, або тільки капуста. На березі неможна залишати козу з вовком або козу з капустою, Силадіть алгоритм перевезення. (Ця старовинна задача впершетрапляється в математичних рукописах VIII ст.)
Ответы
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что выведет программа? ответ записан без пробелов. for i in range(4, 7): print(i)
Дано 3 числа, расположить их в порядке возрастания(в паскале)
С++Напишите программу, которая печатает все числа от 0 до 10, кроме 5 и 2.
Вычислите значение выходного сигнала для логической схемы: фото
Алғашқы әскери робот қашан пайда болды?
