Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Дано четырёхзначное число. Получите двузначное число, удалив из исходного четырёхзначного числа цифры https://www.cyberforum.ru/ pascalabc/ thread1095173.html
2. Дано четырёхзначное число. Получите двузначное число, удалив из исходного четырёхзначного числа цифры: получите другие двузначные числа удалением цифр из исходного четырёхзначного числа.
Множества Pascal ABC
Дана непустая последовательность слов из строчных русских букв; между соседними словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке множества: все глухие согласные...
Pascal ABC Численные методы. Решить нелинейное уравнение методом половинного деления https://www.cyberforum.ru/ pascalabc/ thread1094947.html
решение нелинейных уравнений. метод половинного деления. 2^x-3x-2=0 Добавлено через 5 часов 13 минут с рисунками Добавлено через 8 минут т.е. графики
Pascal ABC Программирование модулей Программирование модулей арифметическая прогрессия задана членом a1 и разностью вычислить произведение членов с 50-го номера по 10-й,11-го по 17-й с 18-го по 20-й,выполнить для а1=6,3,d=2,1. одну... https://www.cyberforum.ru/ pascalabc/ thread1094932.html
Pascal ABC Вычислить все тригонометрические функции углов
Вычислить все тригонометрические функции углов Даны условия величины в градусной мере.Разработать проект,позволяющий: а) вычислить все тригонометрические функции углов б) вводить и редактировать...
Pascal ABC Написать функцию для формулы https://www.cyberforum.ru/ pascalabc/ thread1094817.html
Имеется такая функция (ии) F(t)=a*sh(t)+b*ch(t) (+ 2 прикрепленных скриншота). Мне нужно по этим формалам (то, что на скриншотах - формулы разложения.) написать функцию для первой формулы....
Pascal ABC Дано трехзначное число. Составить число, в котором десятки и сотни поменяются местами https://www.cyberforum.ru/ pascalabc/ thread1094715.html
Дано трехзначное число. Составить число, в котором десятки и сотни поменяются местами. Входные данные: Во входном потоке задано единственное целое трехзначное число. Выходные данные: В выходной...
Pascal ABC Даны два числа - стороны прямоугольника. Определить, является ли этот прямоугольник квадратом
Даны два числа - стороны прямоугольника. Определить, является ли этот прямоугольник квадратом. Входные данные: Во входном потоке заданы два натуральных числа. Значение всех исходных величин не...
Pascal ABC Дано два целых числа - радиусы окружностей. Определить, площадь какой из них больше Дано два целых числа - радиусы окружностей. Определить, площадь какой из них больше. Входные данные: Во входном потоке задано два целых числа - радиусы окружностей. Значение всех исходных величин... https://www.cyberforum.ru/ pascalabc/ thread1094702.html Pascal ABC Вывести три заданных целых числа A, B и C в неубывающем порядке https://www.cyberforum.ru/ pascalabc/ thread1094669.html
Вывести три заданных целых числа A, B и C в неубывающем порядке.:wall:
Нарисовать прямоугольник с помощью '*' Pascal ABC
Нужно нарисовать прямоугольник с помощью '*' Но не получается нарисовать вторую стенку слева. Как мне это осуществить. uses crt; var i,j:integer; begin for i := 2 to 8 do write('*':5);...
Pascal ABC Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3 https://www.cyberforum.ru/ pascalabc/ thread1094601.html
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, являющихся квадратами четных чисел.
Супер-модератор
6117 / 2857 / 1299
Регистрация: 04.03.2013
Сообщений: 5,741
Записей в блоге: 1
12.02.2014, 17:55 0

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц - Pascal ABC - Ответ 5773100

12.02.2014, 17:55. Показов 5856. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
  a, d : integer;
begin
  repeat
    write('введите 3х-значное число: ');
    readln(a)
  until a in [100..999];
  d := (a div 100) * 100 + (a mod 10) * 10 + (a div 10) mod 10;
  write('новое число: ', d)
end.


Вернуться к обсуждению:
Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2014, 17:55
Готовые ответы и решения:

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

Дано двузначное число. Определить, больше ли цифра десятков цифры единиц
Добрый день,дали задание не могу справиться,нужна ваша помощь. Нужно на языке Паскаь решить...

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

Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней
2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить...

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

Дано целое число a>9. Больше ли цифра десятков цифры единиц?
помогите с задачей,пожалуйста, Дано целое число a>9. Больше ли цифра десятков цифры единиц?

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры равны, то выдать об этом сообщение.
Дано трёхзначное число N. Определить, какая из его цифр больше - первая или последняя. Если цифры...

Дано трёхзначное число, кратна ли сумма его цифр 7?
дано трёхзначное число, кратна ли сумма его цифр 7? так, вот, значит написала program zad1;...

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

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