Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Seprente
0 / 0 / 0
Регистрация: 30.03.2017
Сообщений: 6
1

Найти произведение цифр числа и проверить, что в этом числе нет заданной цифры

03.04.2017, 13:41. Просмотров 786. Ответов 1
Метки нет (Все метки)

1.Дано натуральное число.
а) найти произведение цифр числа.
б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2017, 13:41
Ответы с готовыми решениями:

Проверить, что оба числа делятся нацело и на 3 и на 7, и при этом одно число является чётным, а другое нет
написать программу которая спрашивает два числа. если оба числа делятся нацело...

Найти такое число, что сумма его цифр превосходит произведение цифр этого же числа на 1
сумма цифр заданного четырехзначного N превосходит произведение цифр этого же...

Если цифры двузначного числа различны - то проверить их на чётность, иначе найти удвоенную сумму цифр
Дано двузначное число. Выяснить,различны ли его цифры. Если да,то проверить их...

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

Верно ли что в данном числе нет цифры А?
Вообщем, помогите пожалуйста, вот задание: "Дано натуральное число, верно ли...

1
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
03.04.2017, 14:17 2
Лучший ответ Сообщение было отмечено Seprente как решение

Решение

1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  n:integer; p:real;
  a:byte; b:boolean;
begin
  write('Введите число: '); readln(n);
  write('Введите A: '); readln(a);
  p:=1; b:=true;
  repeat
    p:=p*int(n mod 10);
    if n mod 10 = a then b:=false;
    n:=n div 10;
  until n=0;
  writeln('Произведение: ',p);
  if b then write('В числе нет цифры ',a)
    else write('В числе есть цифра ',a);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2017, 14:17

посчитать сколько раз в этом числе встречаются цифры равные 5
Задача такова: Дано четырех значное целое число 1)посчитать сколько раз в этом...

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во...

Проверить, что цифры числа образуют неубывающую последовательность
Пользователь вводит с клавиатуры положительное число, не превышающее диапазон...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru