Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Solovyovz
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 4
#1

Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число. - Pascal

19.09.2010, 13:43. Просмотров 624. Ответов 2
Метки нет (Все метки)

Уславие
http://www.cyberforum.ru/pascal/thread86224.html
Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2010, 13:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число. (Pascal):

Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр
Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих...

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

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
5. Найти все натуральные числа, не превосходящие заданного n, которые делят-ся...

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

Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
1) Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти...

2
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
19.09.2010, 15:55 #2
Лучший ответ Сообщение было отмечено Solovyovz как решение

Решение

С выводом сами подумайте как лучше.
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
34
35
36
37
38
39
40
41
42
43
44
uses crt;
function Summ(n:longint):byte;
var m:longint;
    s:byte;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s +m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
function Prost(a:longint):boolean;
var i:longint;
begin
if a<2 then Prost:=false
else
 begin
  Prost:=true;
  for i:=2 to round(sqrt(a)) do
  if a mod i=0 then Prost:=false;
 end;
end;
var n,m,k:longint;
begin
clrscr;
write('n=');
readln(n);
writeln('Числа меньщие ',n,' сумма цифр которых простое число:');
k:=0;
for m:=2 to n-1 do
if Prost(Summ(m))then
 begin
  k:=1;
  writeln(m,' сумма=',Summ(m));
 end;
if k=0 then write('Таких чисел нет');
readln
end.
write(Prost(n));
readln
end.
1
Solovyovz
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 4
20.09.2010, 00:32  [ТС] #3
Спасибо огромное
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2010, 00:32
Привет! Вот еще темы с решениями:

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа
Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите...

Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не
вот собственно задача: Даны натуральные числа К и N. Составить программу...

Числа у которых сумма всех цифр совпадает с суммой цифр данного числа.
Решить с помощью процедуры. Дано натуральное число N. Найти и вывести все...

Найти все натуральные числа, не превосходящие заданного m
Пожалуйста, очень срочно надо написать программу на языке Pascal (Turbo или...


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

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

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