Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC День недели по номеру дня года Дано целое число k (1≤k≤365). Присвоить целочисленной величине N значение 1, 2, …, 6 или 7 в зависимости от того, на какой день недели (понедельник, вторник, …, субботу или воскресенье) приходится k-й день года, в котором 1 января - понедельник. https://www.cyberforum.ru/ pascalabc/ thread696158.html Найти периметр треугольника Pascal ABC
Даны катеты прямоугольного треугольника. Найти его периметр.
Pascal ABC Определить расстояние до линии горизонта от точки с заданной высотой над Землей https://www.cyberforum.ru/ pascalabc/ thread696153.html
Считая, что Земля - идеальная сфера с радиусом В = 6350 км, определить расстояние до линии горизонта от точки с заданной высотой над Землей.
Pascal ABC Заполнить матрицу по заданному рисунку Подайте пожалуйста идею как заполнить матрицу числами от 1 до n2 по заданной схеме. Спасибо! https://www.cyberforum.ru/ pascalabc/ thread696048.html
Pascal ABC длина отрезка строки
Здравствуйте! помогите написать программу. Найти максимум длины таких начальных отрезков заданной строки,которые имеют вид vv, где v-симметричная подстрока. Например, мы вводим слово(например: абаабавг). Прога должна вывести длину двуз одинаковых и симметричных отрезков в начале слова: в данном случае- 6. Т.к. в начале стоит 2 штуки аба. Но, например, если будет слово абаабаабаабавпвар, то...
Pascal ABC Procedure onkeydown https://www.cyberforum.ru/ pascalabc/ thread695947.html
В этой процедуре если указать например нажатие на кнопку вниз, то при удержании её сначала идёт одно выполнение процедуры, а через несколько долей секунды идёт процедура подряд, как сделать что бы процедура сразу шла подряд?
Pascal ABC Упорядочить матрицу, используя подпрограмму Дана целочисленная квадратная матрица размером n x n. Используя разработанную подпрограмму сортировки, упорядочить значения так, чтобы a11<=a12<=<=a1n<=a21<=a22<=a2n<=an1<=an2<=ann. https://www.cyberforum.ru/ pascalabc/ thread695934.html Pascal ABC Найти максимальный элемент массива и номер его столбца
Дан двумерный массив размером в 5 строк и 5 столбцов, значения элементовмассива заданны с помощью генератора случайных чисел в интервале от -3 о 9.Выполнить действия над двумерным массивом согласно своему варианту задания. Найти максимальный элемент массива и номер его столбца. Вывести сам массив иномер столбца максимального элемента.
Pascal ABC Написать программу нахождения букв которые встречаются во всех имеющихся словах https://www.cyberforum.ru/ pascalabc/ thread695859.html
Помогите решить задачу! Дан набор слов, состоящих из нескольких маленьких латинских букв, требуется определить, есть такие буквы, которые встречаются во всех имеющихся словах? Заранее спасибо!
Pascal ABC В какой системе счисления этот пример справедлив Дан пример на умножение,записанный в виде символьной строки,например,213*3=1144 или 2*1=2.Определить]в какой системе счисления этот пример справедлив. Кто может помогите,заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread695850.html
Лошадка. Анимация Pascal ABC
Pascal ABC Анимация Помогите написать анимированную лошадку, что бы двигалась и двигались ноги
Pascal ABC Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h https://www.cyberforum.ru/ pascalabc/ thread695837.html
Составить программу для вычисления значений функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции.
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
13.11.2012, 11:42 0

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

13.11.2012, 11:42. Показов 10044. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var n,a,b:integer;
begin
repeat
write('Введите 4х-значное число n=');
read(n);
until(n>999)and(n<=9999);
a:=n div 100;
b:=n mod 100;
n:=100*b+a;
write(n);
end.


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

Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Здравствуйте. не могу решить некоторые задачи. можете помочь? II.Логические выражения Составить...

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

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

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

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

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

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

Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
2. Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр.

Равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и...

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