Як використовуючи маркери на горизонтальній лінійці під час створення списків

175

224

Посмотреть ответы 2

Ответы на вопрос:

MelliLisska

Информатика

4,4(8 оценок)

мошнр

2005Dasha0305

Информатика

4,7(36 оценок)

Требуемая программа: var n,a: longint; b: boolean; begin readln(n); readln(a); b: =false; while n> 0 do begin if n mod 10 = a then b: =true; n: =n div 10; end; if b then writeln('в числе есть введенная цифра') else writeln('в числе нет введенной цифры'); end. пример: 1236548 2 в числе есть введенная цифра