Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Lost_fk
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 23
#1

Когда к образованному двузначному числу слева приписали вторую цифру числа х, то получилось число 546 - Turbo Pascal

27.12.2013, 10:43. Просмотров 2080. Ответов 5
Метки нет (Все метки)

В трехзначном числе х зачеркнули первую цифру. Когда к образованному при этом двузначному числу слева приписали вторую цифру числа х, то получилось число 546. Найти число х.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2013, 10:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Когда к образованному двузначному числу слева приписали вторую цифру числа х, то получилось число 546 (Turbo Pascal):

В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили данное число. Найти это числ
В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное...

В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили данное
1. В трехзначном числе зачеркнули первую цифру слева, когда полученное...

Целочисленная арифметика. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число
1. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали...

Дано натуральное число n. Найти вторую цифру этого числа
дано натуральное число n найти вторую цифра числа n

Описать процедуру AddLeftDigit (D,K), добавляющую к целому положительному числу K слева цифру D
Описать процедуру AddLeftDigit (D,K), добавляющую к целому положительному числу...

Описать процедуру Addleft Digit(D,K) добавляющую к целому положительному числу K слева цифру D
Описать процедуру Addleft Digit(D,K) добавляющую к целому положительному числу...

5
Release
Заблокирован
27.12.2013, 12:06 #2
Lost_fk, вам нужно решение на языке Паскаль или что-то другое?
0
Lost_fk
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 23
27.12.2013, 14:01  [ТС] #3
прошу прощения что не уточнил это сразу, да мне нужно решение
0
markiza-inc
478 / 193 / 88
Регистрация: 21.10.2012
Сообщений: 450
27.12.2013, 14:49 #4
Давайте рассуждать.

Предположим:

1. Было число X = 234
2. Убрали первую цифру - это цифра 2
3. Получили 34
4. К этому числу 34 приписываем слева вторую цифру числа X - это цифра 3
5. Получаем число 334.

При любых числах в соответствии с заданием в новом числе первые две цифры
должны быть одинаковыми!!!

Как ни крути - получить при таком задании число 546 ???

Скорее всего Вам нужно не в Pascal, а к колдунам.
0
Lost_fk
0 / 0 / 0
Регистрация: 15.09.2013
Сообщений: 23
11.02.2014, 15:32  [ТС] #5
Поправка в условии, В трехзначном числе х зачеркнули вторую цифру. Когда к образованному при этом двузначному числу слева приписали вторую цифру числа х, то получилось число 546. Найти число х.
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
11.02.2014, 15:39 #6
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var x,a,b,c:integer;
begin
a:=5;
b:=4;
c:=6;
x:=100*b+10*a+c;
write(x);
readln
end.
1
11.02.2014, 15:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2014, 15:39
Привет! Вот еще темы с решениями:

Дописать к числу цифры так, чтобы получилось число – палиндром
6. Дано целое трёхзначное число. Дописать к нему цифры так, чтобы получилось...

Найти вторую цифру числа n.
дано натуральное число n. Найти вторую цифру числа n.

Определить вторую (с начала) цифру числа
Дано натуральное число n (n>9). Определить его вторую (с начала) цифру. ...

Найти вторую с начала цифру заданного числа
Не могу решить,т.к. нужно использовать файлы in.txt и out.txt. А у меня аут...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru