Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
BBS-SEREGA
1 / 1 / 1
Регистрация: 28.06.2011
Сообщений: 42
1

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

03.07.2011, 10:42. Просмотров 1435. Ответов 1
Метки нет (Все метки)

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

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2011, 10:42
Ответы с готовыми решениями:

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

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

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

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

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

1
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,608
03.07.2011, 11:14 2
Лучший ответ Сообщение было отмечено BBS-SEREGA как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var n,i,j,k,c,d:integer;
begin
write('Введите натуральное число n=');
read(n);
writeln('Числа от 1 до ',n,' делящиеся на каждую из своих цифр:');
for i:=1 to n do
 begin
  k:=0;//кол. цифр на которые делится
  c:=0;//общее количество цифр
  j:=i; //запомним число
  while j>0 do//пока оно больше 0
   begin
    c:=c+1; //считаем цифры
    d:=j mod 10;//очередная цифра с конца
    if(d<>0)and(i mod d=0) then k:=k+1;//если не 0 и число делится на нее, считаем
    j:=j div 10;//сокращаем число
   end;
  if c=k then write(i,' ');//если на все делится, выводим
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2011, 11:14

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

Составьте блок-схему алгоритма и программу вывода на экран всех четных двузначных чисел
1. Составьте блок-схему алгоритма и программу вывода на экран всех четных...

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


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

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

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