сервис вопросов и ответовВы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра. И объясните...
10-11 класс|
|
Kirich456
07 нояб. 2014 г., 6:06:34 (9 лет назад)
ПсИхАнУтАя
07 нояб. 2014 г., 6:42:03 (9 лет назад)
uses crt; {модуль CRT, для красоты}
var x,y:integer; {описание переменных}
begin
write('Введи трехзначное число:'); {вывод текста на экран}
readln(x); {Чтение данных}
write('Введи любую цифру:'); {Вывод текста на экран}
readln(y); {
Чтение данных }
if (x<100) or (x>999) or (y<0) or (y>9) {проверка условий}
then writeln('ERROR!') {Вывод текста, если условие соблюдено}
else {Вариант, если в начале все числа введено верно}
if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then
writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено}
else writeln ('Такой цифры нет'); {
Вывод текста, если условие не соблюдено }
end.
Ответить
Другие вопросы из категории
Напишите пожалуйста программу в Паскале:Написать программу,которая по номеру месяца выводит название следующего за ним месяца(с помощью оператора case)
Например: если я ввожу 2 должно выйти март
Помогите пожалуйста построить схему очень срочно надо
F=¬(A+¬B)*(¬D+C)
F=(A+¬C)*¬(¬D+C)
Задание: Рассчитать оплату электроэнергии еслт за первые 100 кВт клиент платит 2 руб. за 1 кВт, за превышение расхода свыше 100 кВт в месяц - по
2,5 руб. за каждый кВт. № п/п Клиент Кол-во электроэнергии (кВт) Оплата (руб) 1 Коржова 140 2 Давыдова 100 3 Козлов 80 4 Литвинов 50 5 Новиков 120
Читайте также
Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
Составить программу в СИ:
1) Составить программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
2) Напечатать числа в виде следующей таблицы:
5 5 5 5 5
6 6 6 6
7 7 7
8 8
9
1. Составьте блок-схему и программу вычисления значения функции:
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
Вы находитесь на странице вопроса "Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра. И объясните...", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.