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

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

11.12.2014, 19:49. Просмотров 1086. Ответов 2
Метки нет (Все метки)

Составьте программу вывода на экран всех натуральных чисел, не превосходящих N и делящихся на каждую из своих цифр. Проверку делимости числа на каждую из своих цифр выполнить в виде функции
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2014, 19:49
Ответы с готовыми решениями:

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

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

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

Составьте программу вывода на экран песочных часов
1. Напишите программу замены в тексте всех букв "a" на "o" и наоборот....

Составьте программу заполнения и вывода на экран таблицы Пифагора(умножения).
Двумерные массивы.(с процедурами и функциями). Составьте программу заполнения...

2
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
11.12.2014, 20:03 2
Лучший ответ Сообщение было отмечено Chinobi как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function CheckDiv(const x : LongWord) : Boolean;
var
    Result : Boolean;
    xn : LongWord;
begin
    Result := True;
    xn := x;
    repeat
        if (xn mod 10 <> 0) then
            Result := (x mod (xn mod 10) = 0);
        xn := xn div 10;
    until ((Not Result) Or (xn = 0));
    CheckDiv := Result;
end;
 
var
    i, n : LongWord;
begin
    Write('n='); ReadLn(n);
    for i := 1 to n do
        if CheckDiv(i) then
            Write(i, ' ');
end.
0
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
11.12.2014, 21:24 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var i,n:integer;
function del_na_tsif(x:integer):boolean;
var x1:integer;
    f:boolean;
begin
 x1:=x;f:=true;
 while (x>0)and(f) do
  begin
   if (x mod 10=0)or(x1 mod(x mod 10)<>0) then f:=false;
    x:=x div 10
  end;
 del_na_tsif:=f 
end;
begin
 writeln('n=?');
 readln(n);
 for i:=1 to n do if del_na_tsif(i) then write(i,' ');
 readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2014, 21:24

Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1
помогите составить программу по следующим задачам 1. Составьте программу...

Составьте программу определения наибольшего общего делителя двух натуральных чисел
1. Составьте программу получения в порядке убывания всех делителей данного...

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


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

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

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