Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1455667.html 2^(n-1)-1 нацело делится на n n - составное число Найти n	Вычислить номер первого нуля в массиве целых чисел Turbo Pascal Составить подпрограмму-функции, которая вычисляет номер первого нуля в массиве целых чисел. Если нулевые элементы отсутствуют, то номеру присвоить значение ноль.
Turbo Pascal Найти сумму первого и последнего, второго и предпоследнего и т.д. элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread1455483.html необходимо найти сумму первого и последнего, второго и предпоследнего и т.д. элементов массива A(N). Вывести суммы на экран. текст программы: Program lab_21; uses crt; var a,b:arrayof integer; n,i,j:integer; begin clrscr;	Turbo Pascal Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице? https://www.cyberforum.ru/ turbo-pascal/ thread1455427.html Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице размером 5х4 ? Cтолкнулся с проблемой, что если последний элемент матрицы (нижний, правый) является минимальным, то оно его и выводит как минимальный в независимости от заданной строчки. Я понимаю, что просто неправильно присвоил начальный елемент перед поиском... Как тут быть? В целом программа...
Вычислить сумму квадратов положительных элементов массива Turbo Pascal Вычислить сумму квадратов положительных элементов массива М(15) которые принадлежат интервалу .	Turbo Pascal Найти наибольшее из значений элементов матрицы, которые находятся в заштрихованной части https://www.cyberforum.ru/ turbo-pascal/ thread1455347.html данная квадратичная матрица порядка n найти наибольшее из значений элементов , которые находятся в заштрихованной части матрицы . ( П.с ) Там часть квадрата заштрихована с левого верхнего до правого нижнего угла
Turbo Pascal Составить блок-схему к готовому коду Здравствуйте. У меня возникла не большая проблема. Я студент, строительного института, по-этому не сильно разбираюсь в некоторых вещах. Так вот, с горем пополам я сделал программу, но к ней еще нужно составить блок-схему, в чем я не силен. Прошу вас, пожалуйста, помогите мне составить блок схему, у меня уже нет сил. Надеюсь на ваше понимание и помощь. uses crt,graph; var... https://www.cyberforum.ru/ turbo-pascal/ thread1455344.html	Turbo Pascal Найти номер студента по его фамилии и инициалам дано файл. В нем находятся номера телефонов студентов их ФИО . найти номер студента по его фамилией и инициалами
Turbo Pascal Выдать информацию о предприятиях в порядке уменьшения списочного состава Хелп:-[ 1. Файл содержит сведения о списочном составе предприятий, каждая запись которого содержит поля: наименование предприятия и количество рабочих. 2. Выдать информацию о предприятиях в порядке уменьшения списочного состава. https://www.cyberforum.ru/ turbo-pascal/ thread1455220.html	Turbo Pascal Вычисление суммы элементов четных строк матрицы Помогите пожалуйста, буду благодарен 1. Вычисление суммы элементов четных строк матрицы. 2. Вычисленте отдельно кол-во нулевых, положительных, и отрицательных элементов матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread1455160.html
Turbo Pascal Изъять из списка элементы, которые относятся к студентам у которых одна оценка 4, а другие 5 Дано: группа студентов,которая составляется из 6 человек .Анкетные данные Ф.И.О и оценки последней сессии. Создать однонаправленный список. Изъять из списка элементы,которые относятся к студентам у которых одна оценка 4 ,а другие 5.	Turbo Pascal Найти и поменять максимальный и минимальный элемент матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1455007.html

ZX Spectrum-128

6810 / 4567 / 4819

Регистрация: 05.06.2014

Сообщений: 22,438

23.05.2015, 20:15

Поменять порядок рядом стоящих двух цифр в записи числа на обратный - Turbo Pascal - Ответ 7658607

23.05.2015, 20:15. Показов 1257. Ответов 3

Метки (Все метки)

Ответ

Например, 2-я и 3-я цифры меняются местами:

Pascal

var
  n, a, b, c,d:integer;
begin
  Writeln('Ваше  4-значное число');
  Write('->');
  Readln(n); //вводим число
  a :=n div 1000; // 1-я цифра
  c :=(n mod 100) div 10; // 3-я цифра
  d :=n mod 10; //4-я
  b :=(n mod 1000) div 100; // 2-я
  n :=a*1000+c*100+b*10+d;
  Writeln('Ваше  4-значное число: ',n);
  readln;
end.

Вернуться к обсуждению:
Поменять порядок рядом стоящих двух цифр в записи числа на обратный Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.05.2015, 20:15

Готовые ответы и решения:

Поменять порядок цифр числа на обратный
Поменять порядок цифр числа на обратный. Например, было 12345, стало 54321.

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

Поменять порядок цифр числа n на обратный
вести число n.Поменять порядок цифр числа n на обратный.

Дано натуральное число N. Поменять порядок цифр числа N на обратный. в паскале
плиз

	23.05.2015, 20:15

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.05.2015, 20:15

Помогаю со студенческими работами здесь

поменять порядок цифр на обратный
http://saveimg.ru/pictures/27-05-10/e3a9fb4910dd1c9da78185ce59fe75ec.jpg

Поменять порядок следования цифр в числе на обратный
Задачка вроде как простенькая, но я в pascal ничего не знаю, поэтому прошу помочь решить. Дано...

В заданном натуральном числе поменять порядок цифр на обратный
1. Вычислить сумму 2/3+3/4+4/5+…+10/11. 2. Дана последовательность натуральных чисел. Если на...

Изменить порядок следования цифр трёхзначного числа на обратный
Помогите пожалйста Вот пример N=432,то M=234

Наверх