Информатика Решить задачу с построения таблицы истинности: У Миши потерялся любимый кот и одноклассники решили ему в поисках. На поиски пошли Максим, Дима и Федя.
Максим сказал, что он не нашел кота и Дима не нашел кота. Дима сказал, что Максим не нашел кота, а Федя нашел кота. Федя сказал, что он не нашел кота, а Максим нашел кота. Когда кота нашли, стало известно, что только один из одноклассников нашел кота. Оказалось, что один из друзей был прав, второй нет, а третий в одном утверждении прав, а во-втором – нет. Давайте узнаем, кто был прав, и кто нашел кота?
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