Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Сосчитать количество дорог В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake». ... https://www.cyberforum.ru/ turbo-pascal/ thread1848868.html	Turbo Pascal Напишите программу котора я будет принимать минимальные и максимальные значения температуры за месяц На геофизической станции специальное устройство снимает температуру за месяц напишите программу котора я будет принимать минимальные и максимальные значения температуры за месяц
Turbo Pascal Определить количество столбцов, содержащих хотя бы один нулевой элемент https://www.cyberforum.ru/ turbo-pascal/ thread1848705.html Дана целочисленная прямоугольная матрица. Определить количество столбцов, содержащих хотя бы один нулевой элемент. Используя процедуры заполнения случайными числами, вывода матрицы	Turbo Pascal Метод половинного деления. Задание 2. По методу половинного деления вычислите один корень заданного уравнения с точностью 10-3 5\sin 2x=\sqrt{1-x} https://www.cyberforum.ru/ turbo-pascal/ thread1848066.html
Turbo Pascal Протабулировать функцию двух переменных Помогите пожалуйста решить: Написать программу и составить блок-схему для вычисления таблицы значений функции D(a,b)=\frac{{cos}^{2}(2a)}{sin(3b)+\left\|{a}^{3} \right\|}, если -1\leq a<2 с шагом {h}_{a}=0.41 и -1<b<1 с шагом {h}_{b}=0.12	Turbo Pascal Протабулировать функцию Помогите пожалуйста решить: Написать программу и составить блок-схему для вычисления таблицы значений функции F(x)=\frac{sin(x-2)}{ln(\sqrt{1+{x}^{3}})}, если аргумент x меняется от 1 до 4 с шагом 1,5 https://www.cyberforum.ru/ turbo-pascal/ thread1847842.html
Turbo Pascal Найти максимальное значение функции на интервале Помогите пожалуйста решить: Написать программу и составить блок-схему для определения максимального значения функции W(y)=tg(\sqrt{5-y})+cos({y}^{4}+2), если переменная y меняется в интервале с шагом {h}_{y}=0.09 https://www.cyberforum.ru/ turbo-pascal/ thread1847838.html	Turbo Pascal Табулирование функции. Помогите пожалуйста решить: Написать программу и составить блок-схему для вычисления всех значений функции Z(x)=cos(2x)-\left\|3x \right\|, если переменная x меняется в интервале с шагом {h}_{x}=0.85
Turbo Pascal Вычислить разность. Помогите пожалуйста решить: Написать программу и составить блок-схему для вычисления разности P=M-N, где M=4{x}^{3} {cos}^{2}(2-\sqrt{x}), N=tg(\sqrt{9{x}^{6}})+2{ln}^{2}(x), при этом x=0.17 https://www.cyberforum.ru/ turbo-pascal/ thread1847786.html	Turbo Pascal Вычислить значение функции Помогите пожалуйста решить: Написать программу для вычисления значения функции S=\frac{arcsin({m}^{2.5})}{m+2ln(m)}-\frac{sin(\sqrt{m})}{cos(sin(x))} https://www.cyberforum.ru/ turbo-pascal/ thread1847784.html
Turbo Pascal Вычислить значения функции. Помогите пожалуйста решить: Составить блок-схему алгоритма для вычисления значения функции F в зависимости от аргументов x и y: F(x,y)=\begin{cases}0.34y-{x}^{2y} & \text{ if } xy\leq 3 \\ {(2{x}^{2}+y)}^{3}+x & \text{ if } 3<xy<4 \\ 3y\sqrt{x+sinx} & \text{ if } xy\geq 4 \end{cases}	Turbo Pascal Составить программу вычисления значения выражения Составить алгоритм и программу вычисления значения выражения \sqrt{x}\ln(x)-\prod_{k=1}^{n}\left(\sqrt{\frac{x^{k-1}}{k+1/3}}+0.5 \right) https://www.cyberforum.ru/ turbo-pascal/ thread1847674.html

bormant

Модератор

7769 / 4598 / 2823

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

Сообщений: 13,077

Записей в блоге: 1

13.11.2016, 14:32

Из двух чисел получить новое путём замены чётных цифр первого числа на наибольшую цифру второго числа - Turbo Pascal - Ответ 9762225

13.11.2016, 14:32. Показов 2201. Ответов 5

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

Сообщение было отмечено Anton_04 как решение

Решение

Там другое условие получилось, первое<->второе и четное<->нечетное: замена нечетных цифр второго числа на наибольшую цифру первого числа.
Заметить и исправить не составляет труда, не так ли?

Pascal

var
  m, n: Longint;
  an, d, j: Integer;
  a: array [1..10] of Integer;
begin
  ReadLn(m,n);
  an:=0; repeat Inc(an); a[an]:=n mod 10; n:=n div 10; until n=0;
  d:=a[1]; for j:=2 to an do if d<a[j] then d:=a[j];
  an:=0; repeat Inc(an); a[an]:=m mod 10; m:=m div 10; until m=0;
  for j:=1 to an do if not Odd(a[j]) then a[j]:=d;
  m:=0; for j:=an downto 1 do m:=m*10+a[j];
  WriteLn(m);
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.11.2016, 14:32

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

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

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

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

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

	13.11.2016, 14:32

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.11.2016, 14:32

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

Из целого числа получить новое, состоящее из нечетных цифр числа (2315663 -> 3153)
Из целого числа получить новое, состоящее из нечетных цифр числа (2315663 -> 3153) на DevC++....

Определить наибольшую цифру среди цифр натурального числа N
Определить наибольшую цифру среди цифр натурального числа N.

Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его последнюю цифру
Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его...

Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру
Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую...

Наверх