1) Одновременно запускаем часы на 3 и 8 минут. После того как истекут часы на 3 мин. - переворачиваем их и ждем еще 3 мин. И снова переворачиваем. 2) Наблюдаем за часами на 8 мин. после 1-го пункта в них осталось песка на 2 минуты. Ждем пока они истекут и сразу начинаем варить зелье. 3) Тем временем в малых часах осталась одна минута, когда она истекает просто перевернем их два раза, тем самым зелье будет вариться 7 минут. (1 мин после 1-2 пунктов + 3 мин + 3 мин. = 7 мин.).
В условии не сказано, когда именно нужно начинать варить, так что допускаю такое решение задачи будет правильным.
2) Наблюдаем за часами на 8 мин. после 1-го пункта в них осталось песка на 2 минуты. Ждем пока они истекут и сразу начинаем варить зелье.
3) Тем временем в малых часах осталась одна минута, когда она истекает просто перевернем их два раза, тем самым зелье будет вариться 7 минут.
(1 мин после 1-2 пунктов + 3 мин + 3 мин. = 7 мин.).
В условии не сказано, когда именно нужно начинать варить, так что допускаю такое решение задачи будет правильным.
program raf105;
const
n = 3;
var
m: array[1..n, 1..n] of integer;
x: boolean;
i,j: integer;
begin
writeln('Матрица:');
for i:=1 to n do
begin
x:= True;
for j:=1 to n do
begin
m[j,i]:= random(10,99);
write(m[j,i],' ');
end;
writeln;
end;
writeln('Номера убывающих строк:');
for i:=1 to n do
begin
x:= True;
for j:=2 to n do
if not(m[j,i] < m[j-1,i]) and x then
x:= False;
if x then
write(i,' ');
end;
end.
PascalABC