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

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

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

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

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

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

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

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

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

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

1
Hitoku
Модератор
1694 / 1293 / 1398
Регистрация: 28.10.2016
Сообщений: 4,235
Завершенные тесты: 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
Привет! Вот еще темы с решениями:

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

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

Нужно найти количество троек во введённом числе путём разбиения этого числа на цифры
Надо написать программу , которая могла бы посчитать кол-во троек в любом...

Дана строка символов S. Удалите из нее все цифры или выдайте сообщение,что цифр в строке нет
Помогите,пожалуйста,написать программу через Паскаль.%-):scratch:Заранее...


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

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

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