Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычислить произведение https://www.cyberforum.ru/ pascal/ thread2767697.html
Здравствуйте помогите правильно записать... У меня в результате части программы получился вектор q в нем 20 чисел... теперь мне нужно посчитать и него: Вычислить произведение:P=(q1+q20)*(q2+q19)*…*(q10+q11) Ну могу понять как правильно записать (((
Pascal Рекуррентная формула
Можете помочь с данной задачей?(Название темы неправильное подобрал)
Pascal Алфавит и моя ошибка нумерации Решил я вывести буквы от A до Z (это у меня получилось), потом подумал.... неплохо бы пронумеровать бук с 1-А до 26-Z, но тут моя ошибка.. var i : Char; s, n : Integer; begin for i:='A' to 'Z' do for s:= 1 to 26 do Write(i); Write(s); end. https://www.cyberforum.ru/ pascal/ thread2767642.html Pascal Удалить из слов текста все предыдущие вхождения последней буквы каждого слова Здравствуйте! Помогите пожалуйста написать код к задаче Задача: Дана последовательность символов. Преобразовать ее следующим образом: удалить из слов этого текста все предыдущие вхождения последней буквы каждого слова. Не могу понять ,как реализовать решение задачи на языке паскаль :( https://www.cyberforum.ru/ pascal/ thread2767386.html
Поиск корней уравнения Pascal
Добрый вечер. Необходимо найти корни уравнения. Два метода. Итераций и половинного деления. Вроде бы всё решил, но считает неверно Начальные приближения: -2.9;0;2.2 Уравнение: Код программы: program Корни; Var X, XL, XP, FL, FX, X0, X00, X1, dx, eps: real;
Pascal Вычисление суммы ряда с заданной точностью https://www.cyberforum.ru/ pascal/ thread2767123.html
Вычислить y = x - x2/2 + x3/3 - ... + (-1)n-1xn/n + ... с точностью eps = 0.00001, где |x|<1. Сравнить результат с вычисленным через стандартную функцию значением y = LN(1+x).(PASCAL) Помогите решить задачу на Pascal`е
Pascal Вычислить сумму с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию https://www.cyberforum.ru/ pascal/ thread2767045.html
Здравствуйте, помогите решить задачу на Паскале. Вычислить y = 1 - x^2/2! + x^4/4! - ... + (-1)^n*x^2*n/(2*n)! + ... с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию значением y = cos (x).
Составить динамический линейный список из большых букв Pascal
Помогите, пожалуйста, решить следующую задачу. Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку. Введенные строки сразу после ввода необходимо разбить на символы. Дальше надо работать только з буквами. Буквы ( большие и маленькие) нужно перевести в большой регистр в посимвольно добавлять в начало...
Pascal Бензоколонки Нужно переделать код чтобы использовались процедуры ввода и вывода элементов массива. Const n=5; var a:array of real; b:array of string; i:integer; begin b:=('ул. Володарского'); b:=('ул. Партизанская'); b:=('ул. Комсомольская'); https://www.cyberforum.ru/ pascal/ thread2766894.html Pascal Получить новый массив, содержащий элементы, которые входят в исходный массив более одного раза Дан одномерный массив, который содержит не более 60 английских букв. Получите новый массив, который будет содержать те элементы, которые входят в исходный массив более одного раза. Использовать процедуры ввода и вывода элементов массива. https://www.cyberforum.ru/ pascal/ thread2766892.html
Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива Pascal
Дан одномерный массив, который содержит не более 40 целых чисел. Создайте новый массив, элементами которого являются суммы делителей каждого числа старого массива. Использовать процедуры ввода и вывода элементов массива.
Pascal Найти суммы отрицательных и положительных элементов, и сравнить их по модулю Дан одномерный массив, который содержит не более 50 целых чисел. Найдите сумму отрицательных и сумму положительных элементов и сравните их по модулю. Использовать процедуры ввода и вывода элементов массива. https://www.cyberforum.ru/ pascal/ thread2766886.html
Платежеспособный зверь
8924 / 4352 / 1642
Регистрация: 28.10.2009
Сообщений: 11,567
11.01.2021, 22:49 0

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

11.01.2021, 22:49. Показов 1367. Ответов 6
Метки (Все метки)

Ответ

А можно и совсем коротко, и без всяких функций. Вот так, по-колхозному:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
a,b,c,d,i:integer;
begin
for i:=1234 to 6789 do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:= i div 100 mod 10;
d:= i div 1000;
if (a>b) and (b>c) and (c>d) then write(i:5);
end;
end.


Вернуться к обсуждению:
Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2021, 22:49
Готовые ответы и решения:

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

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

Найти все натуральные четырехзначные числа, цифры в которых образуют возрастающую последовательность
решить литерными найти все натуральные четырехзначные числа,цифры в которых образуют...

Найти все натуральные четырехзначные числа, цифры в которых обра¬зуют строго возрастающую последовательность.
20. Найти все натуральные четырехзначные числа, цифры в которых обра¬зуют строго возрастающую...

6
11.01.2021, 22:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2021, 22:49
Помогаю со студенческими работами здесь

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

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

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

Найти все натуральные n-значные числа,цифры в которых образуют строго возрастающую последовательность(пример,1234,5789)
Помогите пожалуйста!!!!!!!!Найти все натуральные n-значные числа,цифры в которых образуют строго...

Найти все числа, цифры которых образуют возрастающую последовательность (2345 или 2689) и кратны k
Помогите пожалуйста нарисовать блок-схему алгоритма для программы Найти все числа, цифры которых...

Верно ли, что цифры числа образуют строго возрастающую последовательность
Составить программу с ветвлением, печатающее слово ‘ДА’, если указанное высказывание является...

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