Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
54590 / 42094 / 29065
Регистрация: 18.05.2008
Сообщений: 99,319
19.09.2010, 15:55 0

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

19.09.2010, 15:55. Просмотров 646. Ответов 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.


Вернуться к обсуждению:
Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.09.2010, 15:55

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

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

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

0
Другие темы раздела
Pascal Получить последовательность которая отличается от исходной тем, что все нечетные числа удвоенны http://www.cyberforum.ru/pascal/thread167177.html
Доброго времени суток! Прошу помощи в решении этой задачи. Задача такова: Дано целое число n, целые числа a1,…, an. Получить последовательность b1,…, bn, которая отличается от исходной тем,...
Pascal стэк блин помогите пожалуйста Цель работы: Реализовать стек на языке Pascal с использованием одномерного массива. Выполняемые операции: Занесение элемента в стек; выборка элемента из стека; определение... http://www.cyberforum.ru/pascal/thread167162.html
Pascal Сохранение массива в файл
Не могу разобраться с принципом сохранения (вообще), чем больше читаю (литературу, примеры), тем больше запутываюсь, везде разные процедуры и разные имена. Уже неделю, как баран сижу перед монитором...
Pascal Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].
дано натуральное число n, действительные числа a , ..., a . Получить удвоенную сумму всех положительных членов последовательности a , ... a .
Pascal Нужно сделать лёгкие программы http://www.cyberforum.ru/pascal/thread167131.html
Нужно составить программу для вычесления в Pascal: a) периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.Ответ дать с точностью до трёх знаков после запятой....
Pascal Реализовать блок-схему Кто подскажет, надо реализовать блок схему? x:=5,-5,-1 --> Если x<0 то y:=5/(2*x) иначе y:=x*x+1 ......... вывод у что то типа этого подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru