Прям очень нужно решите. Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 3 paза
Сместиться на (1, 1)
Сместиться на (2, 2)
Сместиться на (1, −3)
Конец
Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?
1. Современное короткое, эффективное, но требующее определенных знаний решение
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var d:='Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords;
Writeln(d[ReadInteger('Введите номер дня') mod 7])
end.
Примеры
Введите номер дня 215
Суббота
Введите номер дня 14
Понедельник
2. Более близкое к приведенному выше алгоритму решение
begin
var n:=ReadInteger('Введите номер дня');
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
3. Типовое школьное решение
var
n:integer;
begin
Write('Введите номер дня');
Read(n);
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
1) Построим таблицу истинности
F = ¬B
B F
0 1
1 0
0 1
1 0
Таблица не соответствует с той, которая в условии. Значит, этот вариант нам не подходит
2) F = B. Этот вариант нам подходит, потому что значение F и B совпадают. Но проверим и остальные варианты
3) Не подходит, т.к. по условию сказано, что переменные связаны
4) Посмотрим таблицу истинности F = A∧B
A B F
0 0 0
Мы уже видим, что наши таблицы не совпадают, поэтому дальше этот вариант можно и ре рассматривать.
ответ: 2
Подробнее - на -
Объяснение: