Написать программу, которая вычисляет стоимость покупки, состоящей из нескольких линеек, нескольких маркеров и одной файловой папки. Хорошо продумай, какие исходные данные нужны для этой программы, как выглядит формула вычисления покупки​

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.

XWZY

Объяснение:

Для начала придётся восстановить всю таблицу истинности этой функции (см таблицу)

В ней ИСТИНА соответствует логической единице, ЛОЖЬ - логическому нулю. Правее столбца с результатами - промежуточные вычисления.

В итоге видим, что всего три строчки в полученной таблице имеют логическую единицу в результате, как и в условии задачи.

Остаётся среди этих трёх строк найти те, что в условии задачи.

Первой строкой исходной задачи может быть только зелёная, так как только в ней есть два логических нуля. Остальные строки исходной таблицы заполняем единицами, поскольку иного варианта быть не может и ищем соответствие в полученной таблице истинности.

Очевидно, что столбец где все логические единицы принадлежит переменной w.

Где в первой строке ноль, а остальные значения 1 это X.

Где в первой строке, а потом 1 и 0 - Z

И остаётся столбец Y.

P.S. Мне уже надоело решать подобные задачи. В приложении файл Excel, который можно подредактировать под любую подобную.