Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal процедуры и функции Вот задание https://www.cyberforum.ru/ pascal/ thread115364.html взвешенная норма вектора. Pascal
Мне нужно решить задачу: Найти взвешенную норму вектора. Очень надо!!!
Pascal Блок-схема https://www.cyberforum.ru/ pascal/ thread115359.html
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); rewrite(g);
Pascal Численый методы для курсовик Добавлено через 30 минут посмотри и помоги ! :) сделайте эту программу в ооп и разделе program Integral; uses Crt, Dos; var dx,x1,x2,e,i:real; function Fx(x:real):real; https://www.cyberforum.ru/ pascal/ thread115328.html
Pascal Можно ли сократить?
И если несложно проверте правильно ли работает а то у меня сомнения вот задание Множество 1 заполнено цифрами в интервале от 1 до 10, множество 2 – в интервале от 11-21, а множество 3 заполнено произведением этих двух множеств. Определить какому множеству принадлежит введенный символ с клавиатуры. Сравнить первое множество с третьим применив операции: =, <>, < и >. Результат получить в виде...
Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread115299.html
arctg(x) =x - x^3/3 + x^5/5 + x^7/7 + x^9/9...
Pascal Нужно ввести в файл данные: название страны, код путёвки, стоимость. Нужно ввести в файл данные: название страны, код путёвки, стоимость. С файлом никогда не работал не могу понять как это осуществить program Myprogram; uses crt; type Student=record Nazvanie_strany:string; Kod:integer; stoimost:real; end; var F: file of student; https://www.cyberforum.ru/ pascal/ thread115298.html Pascal Написать все цифры десятичной записи 2^500 і 1!+2!+3!+... +100!.
Написать все цифры десятичной записи 2^500 і 1!+2!+3!+... +100!, используя процедуры или функции. Помогите пожалуйста!!!!
Pascal перевод программы на паскаль https://www.cyberforum.ru/ pascal/ thread115293.html
мы с другом написали задачу на С++ ,а нам нужно на паскале ,мы затрудняемся перевести ее в паскаль,помогите пожалуйста. вот задача: На вход программы подаются прописные латинские буквы, ввод этих символов заканчивается точкой. Напишите эффективную по времени работы и по используемой памяти программу, которая будет определять, можно ли переставить эти буквы так, чтобы получился палиндром...
Pascal Четные числа https://www.cyberforum.ru/ pascal/ thread115291.html
Даны 20 чисел, посчитать сколько из них четных
Pascal Вывести список всех товаров фирмы в алфавитном порядке
Парни помогите написать программу.
Pascal Составить функцию, которая будет находить следующее за ним простое число Дано простое число. Составить функцию, которая будет находить следующее за ним простое число. https://www.cyberforum.ru/ pascal/ thread115262.html
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
11.04.2010, 17:40 0

Переставить цифры в числе - Pascal - Ответ 654383

11.04.2010, 17:40. Показов 3450. Ответов 6
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a,b:word;
begin
clrscr;
repeat
write('Введите трехзначное число a=');
readln(a);
until (a>=100)and(a<=999);
b:=(a div 100)*100+(a mod 10)*10+(a div 10 mod 10);
write('Перестановка второй и третьей цифр:  ',b);
readln
end.


Вернуться к обсуждению:
Переставить цифры в числе Pascal
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.04.2010, 17:40
Готовые ответы и решения:

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

Переставить цифру в числе.
Трицифровое число заканчивается цифрой 3. Если эту цифру переместить через два знака влево, то новое число будет на 1 больше утроенного...

Цифры в числе.
короче задача стоит в том что дано число n. и проверить есть ли в числе повторяющие цифры! вот моя прога program Project1; ...

6
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.04.2010, 17:40
Помогаю со студенческими работами здесь

Цифры в числе
Дано число типа Longint. Найти цифры, которые входят в число не более 1 раза. Т.е 10005 ответ 1 и 5. Напишите как можно скорее, спс

Переставить цифры числа
Здравствуйте... не могли бы помочь решить задачу: Дано натуральное число n (n&lt;9999) переставить его цифры так, чтобы образовалось...

Переставить цифры числа
Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное Число, записанное теми же цифрами не через массив

Перемещение цифры в числе
Есть трёхзначное число, нужно последнюю цифру числа поместить на первое место: 123 ==&gt; 312 Исходное число находится в файле input.txt,...

Цифры в натуральном числе
Помогите плиз решить следующую задачку: &quot;Дано натуральное число. Определить, образуют ли цифры числа арифметическую прогрессию &quot;

0
Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru