Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Задача паскаль-сумма всех двузначных чисел, которые делятся на 3 и не делятся на 4 Составьте программу вычисления суммы всех двузначных чисел, которые делятся на 3 и не делятся на 4. https://www.cyberforum.ru/ turbo-pascal/ thread692036.html	Получить количество удвоенных нечетных среди a1,a2,.,a2n Turbo Pascal 1. Дан вектор A(2n). Получить количество удвоенных нечетных среди a1,a2,...,a2n. Ес-ли оно меньше n, то ко всем числам с четными индексами добавить 1. В против-ном случае последовательность оставить без изменения.
Turbo Pascal Дан массив целых чисел.Найти количество элементов меньших числа k. Помогите пжл решить задачу.Буду очень благодарна. Дан массив целых чисел.Найти количество элементов меньших числа k. https://www.cyberforum.ru/ turbo-pascal/ thread692014.html	Turbo Pascal Определить сумму элементов массива, имеющих нечетные индексы Есть массив d из n элементов, необходимо определить и вывести сумму элементов, имеющих нечетные индексы. Вывести эти элементы с индексами. Вот я набросала, но пишет ошибку переполнения((( Может я конечно не так определяю нечетность... Помогите, пожалуйста!) s:=0; for i:=1 to n do begin s:= s + d; writeln ('d = ', d:6:3,' '); i:=i+2; https://www.cyberforum.ru/ turbo-pascal/ thread691994.html
Turbo Pascal Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию	Turbo Pascal Вычислить: y=sin 1+ sin 1.1+sin 1.2+.+sin2 Вычислить: y=sin 1+ sin 1.1+sin 1.2+...+sin.помоги пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread691966.html
Turbo Pascal Дано натуральное число n. а) определить н-ое число Фибоначчи; заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread691964.html	Найти сумму всех четных чисел от 1 до п; Turbo Pascal Дано натуральное число п. Найти сумму: а) всех четных чисел от 1 до п; б) всех нечетных чисел от 1 до п.
Turbo Pascal Найти первое натуральное число из диапазона https://www.cyberforum.ru/ turbo-pascal/ thread691915.html Добрый день. Помогите пожалуйста. Она не сложная, только не знаю как реализовать. Задание: Найти первое натуральное число из диапазона, определяемого типом Integer, в котором все четные цифры больше заданной пользователем, а сумма цифр меньше заданного пользователем числа.	Turbo Pascal Отсортировать столбцы массива методом выбора Нужно отсортировать столбцы массива по убыванию. Я сначала начал делать по возрастанию, но он и так не сортирует. Не знаю даже где ошибка program lab6; var a: array of integer; max,id_max,i,j,n,m,k: integer; begin writeln ('Введите кол-во строк и столбцов'); read (m,n); randomize; https://www.cyberforum.ru/ turbo-pascal/ thread691886.html
Turbo Pascal Одномерный массив: поиск, суммирование, сжатие В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) номер минимального по модулю элемента массива; 2) сумму модулей элементов массива, расположенных после первого отрицательного элемента. Сжать массив, удалив из него все элементы, величина которых находится в интервале . Освободившиеся в конце массива элементы заполнить нулями. Помогите пожалуйста решить.	Turbo Pascal Вычислить квадрат, корень квадрата, куб Ввести два позитивных числа меньше 256 например 1 пробел 7 вычислить квадрат корень квадрата и куб. Вывести на екран в виде таблицы. квадрат куб корень квадрата 1 ** * ** 2 3 4 5 6 7 https://www.cyberforum.ru/ turbo-pascal/ thread691868.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

08.11.2012, 13:43

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

08.11.2012, 13:43. Показов 4750. Ответов 1

Метки (Все метки)

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

Решение

Pascal

Var i,j,n:longint;
    mn:set of byte;
Begin
    For i:=1000 to 9999 do
    Begin
      j:=0;n:=i;mn:=[];
      While n>0 do
      Begin
        if n mod 10 in mn then j:=1;
        mn:=mn+[n mod 10 ];
        n:=n div 10;
      End;
      if j=0 then writeln(i);
    End;
    readln;
End.

Вернуться к обсуждению:
Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

08.11.2012, 13:43

Готовые ответы и решения:

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

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

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

	08.11.2012, 13:43

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

08.11.2012, 13:43

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

Трехзначные числа, в записи которых нет одинаковых цифр.
Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные...

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

Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму.
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних,...

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...

Наверх