Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Используя все три вида операторов цикла Помогите пожалуйста) Используя все три вида операторов цикла Паскаль – «Пока», «До» составить программы табулирования функции y=f(x) на отрезке с шагом h=(b-a)/m , где m – заданное число. все три вида операторов цикла В PABC.NET на два больше, если что… https://www.cyberforum.ru/ pascalabc-net/ thread2365493.html PascalABC.NET Массив: На главной диагонали числа от N до 1, под главной - нули, а над главной - числа в порядке возрастания... https://www.cyberforum.ru/ pascalabc-net/ thread2364962.html
На главной диагонали расположены числа от N до 1, под главной диагональю нули, а над главной диагональю по строкам числа в порядке возрастания от заданного. begin var n := ReadInteger; MatrGen(n, n, (i, j)-> i > j ? 0 : n + j - 2 * i).Print end.
PascalABC.NET Нужно переделать программу под неполный условный оператор
program z3; var x,y,w,t:real; begin Writeln('Введите значение w,t'); readln(w,t); if w=-1.57 then w:=-pi/2; if t=-1.57 then t:=-pi/2; x:=sin(w*t); writeln(x); if x<=-1 then begin ... Да здесь вроде как решение такое. const w=3.29; t=4.65; var x,y:real; begin x:=sin(w*t); writeln(x:0:3); if x<=-1 then y:=(-x-1)/4 else if x<0 then y:=3 else y:=cos(x);
PascalABC.NET Найти минимальное произведение из всех произведений пар скоростей различных частиц https://www.cyberforum.ru/ pascalabc-net/ thread2365577.html
На ускорителе для большого числа частиц производятся замеры скорости каждой из них. Чтобы в документации качественно отличать одну серию от другой, каждую серию решили характеризовать числом, равным...
Файл: Создать файлы, содержащие текст и числа из исходного файла... PascalABC.NET
Дан текстовый файл с именем NameT. В каждой его строке первые 60 позиций отводятся под текст, а оставшаяся часть — под вещественное число. Создать два файла: строковый файл с именем NameS, содержащий... gh0ul, так и должно быть. Это же файл вещественных чисел. Его можно просмотреть только программно.
Проверка на уникальность PascalABC.NET
Здравствуйте. Я делаю проверку при заполнении базы данных на то, что бы при вводе личного номера если такой уже зарегистрирован вылезала ошибка, вроде работает, но работает только с последней... Форматировать код не пробовали? While (not EoF(f1)) and (s6<>b1.number) // Проверка уникальности do read(f1,b1); Перед этим что происходило с файлом и что будет происходить неизвестно, НО здесь...
PascalABC.NET Проблема с кодировкой, директива $I https://www.cyberforum.ru/ pascalabc-net/ thread2365095.html
Здравствуйте. Когда запускаю программу, не читаются русские символы 1. Код надо заливать на форум в виде текста не файла. Над ответом есть кнопка PASCAL, для выделения этого кода. 2. В PascalABC.Net нету такой директивы. Внимательно посмотрите каким языком...
PascalABC.NET Составить программу по данной блок-схеме
Помогите составить программу по данной блок схеме, пожалуйста var(x,y):=(5,8); while y<=8 do if x<=y then (x,y):=(x+1,y-1) else (x,y):=(x-5,y+5);
Организация процедур и функции PascalABC.NET
Разработать программу прибавления к элементам какой-либо строки массива элементов другой строки. В массиве А(k*m) к первой строке прибавить третью, а ко второй- четвертую. |-2 4 3| |5 0 ... А Вас спрашивали, простой АВС или .net, Вы выбрали .net, балдейте.
PascalABC.NET Работа с динамическими списками Добрый день. Помогите решить задачу: Организовать линейный список цветов: хранить название цвета и его числовой код. Упорядочивать по первой букве названия, если первые буквы совпадают, то по... https://www.cyberforum.ru/turbo-pascal/thread77419.html https://www.cyberforum.ru/ pascalabc-net/ thread2365169.html
PascalABC.NET Массив: Сформировать массив, элементами которого являются разности max и min значений элементов строк матрицы...
Работа с одномерными и двумерными массивами. Дана матрица A размером NxM. Сформировать и вывести одномерный массив B по следующим правилам: 1. Элементами являются разности наибольших и наименьших... А тип элементов? Будет real знач, сами измените если что... Добавлено через 1 минуту begin var A := ReadMatrReal(ReadInteger, ReadlnInteger); var массив :=...
PascalABC.NET Описать структуру с именем PRICE https://www.cyberforum.ru/ pascalabc-net/ thread2365230.html
Описать структуру с именем PRICE, содержащую следующие поля: - название товара; - название магазина, в котором продается товар; - стоимость товара в грн. Написать программу, выполняющую следующие... https://www.cyberforum.ru/pascal/thread85488.html
 Аватар для Sun Serega
2351 / 1454 / 526
Регистрация: 07.04.2017
Сообщений: 4,793
06.12.2018, 13:45 0

Найти все трехзначные натуральные числа, сумма цифр которых равна В, а само число состоит из разных цифр - PascalABC.NET - Ответ 13131107

06.12.2018, 13:45. Показов 2908. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено alcapone1337 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
begin
  var B := ReadlnInteger;
  Range(100,999)
  .Select(i->i.ToString)
  .Where(s->s.Distinct.Count=3)
  .Where(s->s.Select(ch->string(ch).ToInteger).Sum = B)
  .PrintLines;
end.


Вернуться к обсуждению:
Найти все трехзначные натуральные числа, сумма цифр которых равна В, а само число состоит из разных цифр PascalABC.NET
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.12.2018, 13:45
Готовые ответы и решения:

Вывести все трехзначные натуральные числа, сумма цифр которых равна заданному числу (через repeat)
Написать программу,которая выводит все трех значаные натуральные числа,сумма цифр которых равна заданному числу N(обязательно через Repeat)

Найти все трёхзначные натуральные числа, которые состоят из разных цифр, а само число делится на 3
Здравствуйте. Нужно решить задачу. Найти все трёхзначные натуральные числа, которые состоят из разных цифр, а само число делится на 3. ...

Найти все натуральные числа, у которых сумма цифр, стоящих в нечетных разрядах равна заданному числу
Найти все N-значные натуральные числа (1&lt;N&lt;9), у которых сумма цифр, стоящих в нечетных разрядах равна N. Нумерацию разрядов вести справа...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.12.2018, 13:45
Помогаю со студенческими работами здесь

Вывести на экран все трехзначные числа, сумма цифр которых равна N
Я решил 3 задачи из олимпиады, вот заканчиваю задачку. Подскажите что не так? Условие:Вывести на экран все трехзначные числа, сумма цифр...

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В ( А и В вводятся с клавиатуры). ...

Найти все трехзначные числа, сумма цифр которого равна заданному числу n
Найти все трехзначные числа, сумма цифр которого равна заданному числу n

Найти такие числа в заданном промежутке, что сумма их цифр равна 9, а само число делится на 5
Найти все трехзначные числа из промежутка , такие, что сумма их цифр равна 9, а само число делится на 5 В чем проблема? ...

Найти все натуральные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится само число
Найти все N-значные натуральные числа (1&lt;N&lt;5), такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится само...

0
Новые блоги и статьи
Исследование байт-кода Python: подключаем дизассемблер
stackOverflow 19.02.2025
Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .
Исследование байт-кода Python: компиляторы против интерпретаторов
stackOverflow 19.02.2025
Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .
Comprehensions в Python - что это такое?
stackOverflow 19.02.2025
Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .
Python правда такой медленный? Развенчиваем миф о медлительности
stackOverflow 19.02.2025
Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .
Динамические формы в Flask
stackOverflow 19.02.2025
Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS
stackOverflow 19.02.2025
Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .
где chromium хранит пароли и как их обнулить в пожарном варианте
jigi33 19.02.2025
Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)
howto get access to external internet resources with kinit
jigi33 19.02.2025
Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)
Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi
stackOverflow 19.02.2025
В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .
ENV (environments) valid paths in linux
jigi33 19.02.2025
Environments paths (see screenshot)
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru