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

Вывод на экран всех натуральных чисел, не превосходящих N, и делящихся на каждую из своих цифр

23.06.2008, 19:43. Просмотров 706. Ответов 2
Метки нет (Все метки)

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

Помогите плиз
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2008, 19:43
Ответы с готовыми решениями:

Вывод на экран всех натуральных чисел, не превосходящих заданное число
1 задача: Напишите программу вывода на экран всех натуральных чисел, не...

Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Найти количество натуральных чисел, не...

найти количество чисел в интервале от 1 до N, делящихся на сумму своих цифр
дано число N. найти количество чисел в интервале от 1 до N, делящихся на сумму...

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

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

2
Puporev
Модератор
55461 / 42569 / 29421
Регистрация: 18.05.2008
Сообщений: 100,712
23.06.2008, 20:05 2
Код
[SIZE=2]
uses crt;
var n:longint;i:integer;
function Del(A:longint):boolean;
var k,i:integer;
b:longint;
c:boolean;
begin
k:=0;i:=0;b:=a;
while b>0 do
     begin
       n:=b mod 10;
       if n=0 then
          begin
            c:=false;
            exit;
          end
       else
          begin
            i:=i+1;
            if a mod n=0 then k:=k+1;
            b:=b div 10;
          end;
    end;
if k=i then c:=true
else c:=false;
Del:=c;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
if Del(i)=true then
write(i,' ');
readln
end.
[/SIZE]
0
Xym
0 / 0 / 0
Регистрация: 20.06.2008
Сообщений: 2
23.06.2008, 20:09 3
Спасибо большое!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2008, 20:09

Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N
Составьте программу вывода на экран всех простых чисел, не превосходящих...

Среди всех трёхзначных чисел,вывести те,которые равны сумме кубов своих цифр
Среди всех трёхзначных чисел,вывести те,которые равны сумме кубов своих цифр

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


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

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

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