сервис вопросов и ответовДано натуральное число: *найти произведение его цифр *верно ли, что в данном числе нет данной цифры А, А ввод. с клавиатуры
5-9 класс|
|
В паскале
Milachka16
08 дек. 2016 г., 18:14:51 (7 лет назад)
Zoro21
08 дек. 2016 г., 19:51:38 (7 лет назад)
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;
Айнур84
08 дек. 2016 г., 22:03:10 (7 лет назад)
То есть, сначала вводят число, находим произведение его цифр. А потом вводят еще число однозначное и мы ищем, есть ли оно в... в первом числе или в цифрах произведения?
Ponizla
08 дек. 2016 г., 23:05:29 (7 лет назад)
Или вводят число натуральное, после него вводят A, нужно вывести произведение цифр первого числа и написать, есть ли число а в записи первого?
Ответить
Другие вопросы из категории
применение векторной графики по сравнению с растровой.......
1. обеспечивает наилучшее качество тоновых орнаментов
2. не влияет на объем памяти, необходимый для хранения изображения
3. сокращает объем памяти, необходимой для хранения изображения и облегчает его редактирование
Помогите пожалуйста! С задачей по Информатике
Сколько потребуется полных дискет для хранения 4 томов энциклопедии, если в каждом томе 500 страниц, на каждой странице 60 строк и 50 символов в каждой строке, каждый символ 8 бит. Информационная емкость дискеты 1, 44 Мбайт
Написать алгоритм для программы Паскаль:
Запросите у пользователя курсы доллара на сегодняшний день, затем имеющуюся у него рублёвую сумму , рассчетайте сколько долларов он сможет купить.
Помогите,пожалуйста
Помогите пожалуйста решить эти задачи с составлением дано1) Секретарь может набирать текст со скоростью 256 символов в минуту. Сколько Кбайт
информации он сможет ввести в компьютер за 10 минут, если используется алфавит из 256 символов?
2) Узнав,что Маша живет на пятом этаже многоэтажного дома,Дима получил 5 бит информации. Сколько этажей в доме?
Читайте также
Ответьте на вопросы:Верно ли, что алгоритм – это план решения задачи? _______________________________Верно ли, что дрессированные животные могут быть
исполнителями алгоритмов?_____Верно ли, что исполнитель может выполнять только те команды, которые входят в его СКИ?_________________________Верно ли, что процесс мытья 10 тарелок является циклическим алгоритмом?__________Верно ли, что фигура ромб означает начало и конец алгоритма в блок-схеме?__________
1)найти количесво делителей натурального числа,сколько из них чётных? 2) дано натуральное число: найти две первые цыфры числа
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
1.Если данное натурального число меньше 10, то прибавьте 10, иначе вычьте. Решить через Паскаль var, begin-end. 2. Дано трехзначное число.
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
Ребятки!!!!ПОмогите пожалуйста очень срочно!!!! Дан файл f компоненты которого действительные числа.Найти сумму компонентов
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
Вы находитесь на странице вопроса "Дано натуральное число: *найти произведение его цифр *верно ли, что в данном числе нет данной цифры А, А ввод. с клавиатуры", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.