0 / 0 / 0
Регистрация: 23.11.2017
Сообщений: 1
1

Сумма цифр искомого числа равна произведению цифр заданного

23.11.2017, 18:10. Показов 2433. Ответов 1
Метки нет (Все метки)

помогите , пожалуйста, с этим заданием.
Нужно составит блок-схему и программу на паскале. Последняя работа осталась и никак не получается((((

ЗАДАНИЕ:

Для заданного натурального числа найти все, не превышающие его натуральные числа, обладающие следующим свойством: сумма цифр искомого числа равна произведению цифр заданного
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2017, 18:10
Ответы с готовыми решениями:

Определите, в каких двузначных и трехзначных числах удвоенная сумма цифр равна их произведению
14.1. Определите, в каких двузначных и трехзначных числах удвоенная сумма цифр равна их...

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.
Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у которых сумма...

Простые типы данных. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме соседних цифр, а само число делиться на 6 и 27
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме соседних цифр, а само...

1
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
23.11.2017, 18:29 2
Лучший ответ Сообщение было отмечено Ксения_2000 как решение

Решение

Наверное так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var n,i,a,s,p,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число n>0 n=');
readln(n);
until n>0;
a:=n;
p:=1;
while a>0 do
 begin
  p:=p*a mod 10;
  a:=a div 10;
 end;
for i:=1 to n do
 begin
  a:=i;
  s:=0;
  while a>0 do
   begin
    s:=s+a mod 10;
    a:=a div 10;
   end;
  if s=p then
   begin
    k:=1;
    writeln(i);
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2017, 18:29

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)
Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти...

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

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"
Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна...

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


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

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

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