Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет
Ответ будет 6,а задачу ты списал торопясь,пропустил слова"только",поэтому никто и не смог тебе дать ответ,там выходит 2 учатся на 5, 4 на 3 и 6 на 4
1) открыть чек
2) считать штрих код товара
3) получить данные по товару
4) вычислить стоимость товара и общую сумму
5) если есть еще товары, то к п2
6) вывести общую сумму покупки или вообще данные по чеку
7) получить данные оплаты (наличка или карточка, сколько налички)
8) если оплата наличкой, то вычислить разницу/здачу и вывести на экран
9) открыть кассиру доступ к наличным деньгам в кассе
10) распечатать чек
<span>11) закрыть чек</span>