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

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


textual

Код к задаче: «Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр - Turbo Pascal»

uses crt;
var n:integer;
function d(n:integer):boolean;
var m:0..9; k:integer;
begin
k:=n;
repeat
m:=k mod 10;
k:=k div 10;
until (k=0) or ((m<>0) and  (n mod m=0));
d:=n mod m=0;
end;
begin
clrscr;
write('Vvedite N: ');
readln(n);
for n:=n downto 1 do if d(n) then write(n,'; ');
readkey;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.286 из 5



Похожие ответы
  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. Вывести на экран первые четыре числа, кратные s и больше x. Натуральные числа s и x пользователь вводит с клавиатуры.

  1. Дан массив размером N. Нужно вывести из массива числа которые находиться в степени 2 и 3; _____________________ N = 6 X = { 4, 6, 9, 7, 2, 3 } Ответ. 4 , 9 ____________________ N = 8 X = { 2, 1, 6, 7, 16, 36, 8, 9} Ответ. 16 , 36, 8, 9

  1. Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как сделать?

  1. Составить программу, находящую все трехзначные числа abc такие, что abc= a! + b! + c! Заранее спасибо!

  1. While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его.

  1. Вводятся произвольные целые числа. Определить: а) количество четных чисел, введенных до ввода числа, кратного k; б) сумму первых k положительных чисел.

  1. Условие задачи: Введите три натуральных числа, меньшее, из промежутка (1,7) заменить полусуммой остальных.

  1. доброго времени суток! помогите найти ошибку в задаче. Задача:Создать матрицу B[1..N,1..M] из целых чисел. Из каждой строки матрицы определить числа, которых нет в следующей строке и записать их в одномерный массив.