Среди трехзначных натуральных чисел вывести в строчку те , у которых все цифры различны - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/15:

@Кита 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 63

	Среди трехзначных натуральных чисел вывести в строчку те , у которых все цифры различны 17.06.2017, 15:00. Показов 2820. Ответов 1 Метки нет (Все метки) Среди трехзначных натуральных чисел вывести в строчку те , у которых все цифры различны 0

Лучшие ответы (1)

Сообщение: #10553015

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

17.06.2017, 15:00

Ответы с готовыми решениями:

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

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

Вычислить количество четырехзначных чисел, делящихся на 5, у которых все цифры различны.
Помогите решить задачу пожалуйста!СПАСИБО! Вычислить количество четырехзначных чисел, делящихся на 5, у которых все цифры различны.

Puporev

Почетный модератор

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,168

17.06.2017, 17:07

Сообщение было отмечено Кита как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=100 to 999 do
if(i div 100<>i div 10 mod 10)and(i div 100<>i mod 10)and(i div 10 mod 10<>i mod 10)
then
 begin
  write(i:4);
  inc(k);
  if k=400 then
   begin
    write('Press Enter');
    readln
   end
 end;
readln
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

17.06.2017, 17:07

Помогаю со студенческими работами здесь

Посчитать количество трехзначных чисел из числа введённых, у которых все цифры разные.
Посчитать количество трехзначных чисел из числа введённых, у которых все цифры разные. (Желательно без переобразований числа в строку)

Найти из всех четырехзначных чисел, такие числа, в записи которых все цифры различны
Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с...

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

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

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

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .

Наверх