0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 52
1

Вывести все натуральные числа и записать числа которые делятся на 17 без остатка

20.06.2016, 11:52. Показов 3770. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как сделать?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2016, 11:52
Ответы с готовыми решениями:

Найти все натуральные числа <= N, которые делятся без остатка на каждую из своих цифр
Найти все натуральные числа &lt;= N, которые делятся без остатка на каждую из своих цифр

Вывести все целые числа, на которые оба введенных числа делятся без остатка
Пользователь вводит два целых числа. Необходимо вывести все целые числа, на которые оба введенных...

Вывести все целые числа, на которые оба введенных числа делятся без остатка
Пользователь вводит два целых числа. Необходимо вывести все целые числа, на которые оба введенных...

Вывести все числа из диапазона от 0 до 1000, которые делятся на 2 и на 3 без остатка (for, while)
Напишите программу которая выводит все числа из диапазона от 0 до 1000 которая делятца на 2 и на 3...

7
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
20.06.2016, 12:09 2
Лучший ответ Сообщение было отмечено AimFire88 как решение

Решение

Первый вариант
Pascal
1
2
3
4
5
6
const n =1000000;
var i:longint;
BEGIN
For i:=1 to n do
IF i mod 17 = 0 THEN Writeln(i);
END.
Второй вариант
Pascal
1
2
3
4
5
6
7
8
9
const n = 1000000;
var i:longint;
BEGIN
i:=0;
While (i < n) do begin
i:=i+17;
Writeln (i);
end;
END.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7784 / 4610 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
20.06.2016, 17:14 3
Цитата Сообщение от AimFire88 Посмотреть сообщение
Задание, вывести все натуральные числа
Вы собираетесь жить вечно?
0
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 52
21.06.2016, 12:22  [ТС] 4
Цитата Сообщение от shilko2013 Посмотреть сообщение
Первый вариант
Спасибо большое.
Цитата Сообщение от bormant Посмотреть сообщение
Вы собираетесь жить вечно?
Слишком сложно, не пойму, объясните?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7784 / 4610 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
21.06.2016, 12:39 5
Количество натуральных чисел (1, 2, 3, ...) бесконечно, вывести их все (а в задании сказано вывести именно все натуральные числа) за конечное время невозможно.
0
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 52
22.06.2016, 01:19  [ТС] 6
Цитата Сообщение от bormant Посмотреть сообщение
конечное время невозможно
Задание к тесту составлял не я, поэтому писал задание как есть
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
22.06.2016, 15:21 7
Цитата Сообщение от AimFire88 Посмотреть сообщение
Задание к тесту составлял не я, поэтому писал задание как есть
Тогда ни один из вариантов решения не является правильным, т.к. они не выводят ВСЕ натуральные числа.
0
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 52
22.06.2016, 16:35  [ТС] 8
Цитата Сообщение от APALoff Посмотреть сообщение
ВСЕ натуральные числа
Да что вы цепляетесь к словам? Ну ошибся тот кто составлял задание, программу у меня уже приняли поэтому мне плевать на то что там было написано)
0
22.06.2016, 16:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2016, 16:35
Помогаю со студенческими работами здесь

Вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр
вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр

Вывести все 6-ти значные числа, которые делятся без остатка на сумму своих цифр
Вывести все 6-ти значные числа, которые делятся без остатка на сумму своих цифр. подсчитать кол-во...

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры
получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.

Вывести все трехзначные числа (100-999), которые делятся на каждое из своих чисел без остатка
Здравствуйте! Очень надеюсь на вашу помощь, перепробовал кучу вариантов, и все никак не выходит,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru