Нужна ваша . необходимо написать программу в pascalabc и лучше с объяснениями. сам не понимаю. дано натуральное число. верно ли, что в данном числе нет данной цифры а (цифру а вводить с клавиатуры)

248

449

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

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

dmukh

Информатика

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

1. pascalabc.net 3.2 begin var s: =readlnstring('введите натуральное число: '); var c: =readlnchar('введите цифру для поиска: '); if pos(c,s)> 0 then writeln('такая цифра есть') else writeln('такой цифры нет') end. 2. pascalabc.net любой версии, free pascal и т.д. на строках var s: string; c: char; begin write('введите натуральное число: '); readln(s); write('введите цифру для поиска: '); readln(c); if pos(c,s)> 0 then writeln('такая цифра есть') else writeln('такой цифры нет') end. 3. то же, но без строк, с циклом var n: longint; d: 0..9; begin write('введите натуральное число: '); read(n); write('введите цифру для поиска: '); read(d); while n> 0 do begin if n mod 10=d then begin writeln('такая цифра есть'); exit end; n: =n div 10 end; writeln('такой цифры нет') end.

denisвопрос

Информатика

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

//pascalabc.net 3.2 сборка 1318 var n,a: integer; b: boolean; begin b: =true; //"флаг", указывающий на результат readln(a); //вводим цифру readln(n); //вводим число while n> 0 do //пока число не равно 0 if n mod 10=a then //mod 10 возвращает последнюю цифру числа begin b: =false; //если эта цифра равна а, тогда "флаг" меняет своё значение break; //и выходим из цикла end else n: =n div 10; {иначе посредством div 10 убираем самый правый разряд. если левый аргумент меньше 10, он вернёт 0 и тем самым завершит цикл} if b=true then writeln('да') else writeln('нет'); {"флаг" остаётся true только если не встретилось совпадений в цикле} end. пример ввода: 3 123 пример вывода: нет

liza73578

Информатика

4,6(41 оценок)

що тут еще казаты

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.