Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Определить количество выигрышей, проигрышей, ничьих https://www.cyberforum.ru/ pascal/ thread1851079.html
Составить программу на паскале . В массиве записаны результаты 10 игр фут-больной команды(если игра закончилась выигрышем данной команды ,то записано число3 ,проигрышем-число2,вничью-1). Определить количество выигрышей, проигрышей, ничьих.
Нужны комментарии к коду Pascal
uses crt,graph; const n=2; var a,a1:array of real; b,b1,x:array of real; function f(a,b,c,x:real):real; begin f:=-a*x/b+c/b; end; var i, j, k,x0,y0: integer; delenie,xn,xk,m,z,x1,y1:real;
Pascal Суммы элементов с нечётными и чётными номерами столбцов https://www.cyberforum.ru/ pascal/ thread1850839.html
Составить программу, которая находит в каждой строке матрицы P(k,l), k≤12, l≤14, сумму элементов с нечетными номерами столбцов и сумму элементов с четными номерами столбцов. Найти максимальное значение из первых сумм и минимальное из вторых сумм. Вывести исходную матрицу, располагая в одной строке элементы строки матрицы, после которых найденные суммы, максимальное и минимальное значения....
Pascal Блок-схема алгоритма вычисления произведения элементов квадратной матрицы, расположенных на главной диагонали Здравствуйте. Разработать алгоритм вычисления произведения элементов квадратной матрицы, расположенных на главной диагонали. Нужна именно блок-схема. https://www.cyberforum.ru/ pascal/ thread1850794.html
Pascal Найти N пар простых чисел-близнецов
помогите пожалуйста , как реализовать эту задачу Найти N пар простых чисел, которые отличались бы друг от друга на 2 («близнецы»). Использовать функции поиска «близнецов» и простых чисел.
Pascal Работа с внешними файлами Здравствуйте!Помогите с программой, пожалуйста! Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4. Оценки в аттестате. 5. Признак - нуждается ли в общежитии. 6. Оценки вступительных экзаменов. Разработать программу записи... https://www.cyberforum.ru/ pascal/ thread1850614.html
Pascal Что будет выведено на экран в результате работы этой программы? https://www.cyberforum.ru/ pascal/ thread1850497.html
Что будет выведено на экран в результате работы программы?Объясните эту задачу. Program Main; Uses crt; Var a,b,c,d:integer; Function f(var b:integer; c:integer):integer; Var d:integer; Begin a:=2; b:=b+1; d:=3; c:=b-a; Writeln(a,b,c,d); f:=d;
Вычислить сумму ряда Pascal
1 Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε(ε=10-3,10-4,10-5,10-6)сумму ряда и указать количество учтеных слагаемых. Ограничиться рассмотрением первых 10-ти членов.
Pascal Написать программу, которая запрашивает данные на 2-ух учеников https://www.cyberforum.ru/ pascal/ thread1850409.html
Описать массив 50 элементов для учеников и ввести сведения для 5 учеников и вывести данные столбиком (извините, написано коряво, но учитель сам сочиняет задачи... и вот что выходит)
Pascal Найти сумму модулей элементов, расположенных выше главной диагонали матрицы Подпрограммы-процедуры. Составьте программу и блок-схему, используя подпрограммы и функции. Дана квадратная матрица действительных чисел. Найти сумму модулей элементов, расположенных выше главной диагонали https://www.cyberforum.ru/ pascal/ thread1850222.html
Составьте программу для определения самой рентабельной парикмахерской города Pascal
Для определения рентабельности парикмахерской используют прибыль на одного работающего. В ЭВМ поступают данные о названии парикмахерской, фамилия владельца, общая прибыль и количество работающих. Составьте программу для определения самой рентабельной парикмахерской города. Выведите ее название. ФИО директора и постройте диаграмму распределения по рентабельности.(Количество парикмахерских -10). ...
Pascal Найти номер строки массива размера m на n, в которых находится наибольшее количество четных элементов https://www.cyberforum.ru/ pascal/ thread1850111.html
Найти номер строки массива размера m на n в которых находиться наибольшее количество четных элементов.
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
15.11.2016, 12:55 0

Вывести число, полученное при перестановке цифр сотен и единиц исходного числа - Pascal - Ответ 9771036

15.11.2016, 12:55. Показов 4012. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
    x: Word;
begin
    repeat
        Write('Введите четырёхзначное число: ');
        ReadLn(x);
    until ((x > 999) And (x < 10000));
    Inc(x, (x mod 10 - (x div 100) mod 10) * 99);
    WriteLn(x);
end.


Вернуться к обсуждению:
Вывести число, полученное при перестановке цифр сотен и единиц исходного числа Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2016, 12:55
Готовые ответы и решения:

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

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

Получить число, полученное при перестановке второй и третьей цифры заданного числа
2. Дано трёхзначное число. Получить число, полученное при перестановке второй и третьей цифры...

Получить число, полученное при перестановке первой и второй цифры заданного числа
1. Дано трёхзначное число. Получить число, полученное при перестановке первой и второй цифры...

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

Дано двузначное число. Получить число образованное при перестановке цифр заданного числа
дано двузначное число.получить число образованное при перестановке цифр заданного числа. Прошу...

цифра сотен равна среднему арифметическому цифр исходного числа;
помогите пожалуйста с программой!! 14. Дано трехзначное натуральное число. Распечатать...

Найти число, полученное перестановкой 1 и 2 цифр заданного числа
Ребята, помогите...

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

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