Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Переделать функцию в процедуру Посогите переделать функцию в процедуру type mas = array of real; vybor = (min, max); var z: real; x,y: mas; procedure form_mas(var a: mas); https://www.cyberforum.ru/ turbo-pascal/ thread112928.html Turbo Pascal В строке записаны слова и целые положительные числа, не превышающие значения 3000. Заменить каждое число его представлением в римской системе
В строке записаны слова и целые положительные числа, не превышающие значения 3000. Заменить каждое число его представлением в римской системе счисления. То же, что 5.27, но в качестве возможной ошибки рассматривать замену одной буквы. Введённая строка представляет собой формулу. Определить, является ли формула корректной относительно использованных в её записи скобок.(с подпрограммой)
Turbo Pascal Для каждого из слов указать, сколько раз оно встречается в тексте. https://www.cyberforum.ru/ turbo-pascal/ thread112923.html
Для каждого из слов указать, сколько раз оно встречается в тексте.
Turbo Pascal В заданном предложении указать слово, в котором доля согласных максимальна. Считать, что слова в тексте отделены друг от друга одним пробелом.С исполь Помогите ПЛИЗ!!!! В заданном предложении указать слово, в котором доля согласных максимальна. Считать, что слова в тексте отделены друг от друга одним пробелом.С использованием подпрограммы. https://www.cyberforum.ru/ turbo-pascal/ thread112922.html
Создать файл на диске Turbo Pascal
Создать пустой файл на диске и напечатать в нём таблицу Во вложении файл который должен получиться
Turbo Pascal Дана символьная строка. Определить длину самой длинной подстроки из подряд идущих букв "а" Дана символьная строка. Определить длину самой длинной подстроки из подряд идущих букв "а" https://www.cyberforum.ru/ turbo-pascal/ thread112908.html
Turbo Pascal Наберите программу, которая выводит на экран текст. https://www.cyberforum.ru/ turbo-pascal/ thread112907.html
дано задание : 3. Наберите программу, которая выводит на экран текст: Лабораторная работа №10 студентки гр. ЭФ-92 Пановой Елены 4. Подключите модуль CRT, для этого в начале программы после её имени напишите Uses CRT. 5. Вставьте в программу процедуру очистки экрана. 6. Задайте цвет фона и цвет символов, с помощью процедур...
Определите на какие товары повысились цены и на сколько процентов. Turbo Pascal
Создайте файл, содержащий записи следующей структуры: наименование товара, старая цена, новая цена. Определите на какие товары повысились цены и на сколько процентов. Решите умоляю !!! Если можете, то сделайте с подпрограммами - процедуры и функции, а ещё с модулями - 1 или 2 !!!
Turbo Pascal Не знаю как сделать блок-схему https://www.cyberforum.ru/ turbo-pascal/ thread112873.html
Program Final; Uses crt; Function Prost(a:word): boolean; Var i: word; begin for i:=2 to round (sqrt(a)) do if a mod i=0 then Prost:=false; end;
Turbo Pascal программа, находящая в заданном массиве все простые числа https://www.cyberforum.ru/ turbo-pascal/ thread112855.html
Написать программу, находящую в заданном массиве все простые числа. Проверку оформить в виде логической функции пожалуйста помогите
Turbo Pascal В каждом слове текста удалить минимальное количество символов так, чтобы в преобразованном слове не было повторяющихся символов.
В каждом слове текста удалить минимальное количество символов так, чтобы в преобразованном слове не было повторяющихся символов.
Turbo Pascal Найти периметр равнобедренного треугольника по его основанию и высоте Описать функцию TriangleP (a, h), находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию (a и h — вещес https://www.cyberforum.ru/ turbo-pascal/ thread112826.html
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 31
05.04.2010, 19:00  [ТС] 0

Найти из всех четырехзначных чисел, такие числа, в записи которых все цифры различны - Turbo Pascal - Ответ 642573

05.04.2010, 19:00. Показов 2636. Ответов 5
Метки (Все метки)

Ответ

Да, это одна программа. Сначала просто условие как это делать...

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

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

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

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

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

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

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

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны (Windows Form)

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

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

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