Дано натуральное число: найти произведение его цифр верно ли, что в данном числе нет данной цифры а, а ввод. с клавиатуры в паскале

218

445

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

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

норрд

Информатика

4,5(17 оценок)

Var x, temp, p, a, original: integer; found: boolean; begin found: =false; //переменная примет значение "истина" тогда, когда число а будет найдено в цифрах первого числа writeln('введите натуральное число"); readln(original); writeln('введите число a'); readln(a); x: =original; p: =1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю) while x> 0 do //пока x болльше нуля begin temp: =x mod 10; //заносим последнюю цифру числа x в переменную temp if temp=a then found: =true; //если цифра числа равна a, то помечаем, что нашли ее p: =p*temp; //домножаем произведение на цифру x: =x div 10; //отбрасываем последнюю цифру числа через целочисленное деление end; writeln('произведение цифр числа ' + original + ' равно ' + p); if found then writeln('цифра' + a + ' есть в исходном числе ' + original) else writeln('цифра ' + a + ' отсутствует в оригинальном числе ' + original) end;

doktornastia03

Информатика

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

Получилось на 15 мин как я понял, нужно определить, какая буква введена с клавиатуры - большая или маленькая, сделала для и языка program one; var a: string; begin readln(a); if a[1] in ['a'..'z'] then writeln('маленькая'); if a[1] in ['a'..'z'] then writeln('большая'); if a[1] in ['а'..'я'] then writeln('маленькая'); if a[1] in ['а'..'я'] then writeln('большая'); end.

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

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

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

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

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

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

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

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

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

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