Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
250*1000=250000
250000/1450=172(ост 600)
ответ:лодка сможет выдержать наплаву 172 кирпичей
О старом поезде , который каждый день везет буддистов
<span>Структуру разветвляющегося алгоритма, так как будет задаваться условие.</span>
В приложении примеры стандартного решения для этой задачи.
Вот еще вариант в Excel
Изменяя значения вверху таблицы истинности можно проследить работу схемы.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаете пароль, копируете логические элементы, получаете модель схемы.
На других листах приведены некоторые основные формулы, позволяющие упростить логическое выражение.
Удачи!