дано трехзначное число,

@Cl1kUs · Регистрация: 18.10.2011

Студворк — интернет-сервис помощи студентам

дано трехзначное число,
найти полученное при прочтении его чисел с права на лево
Пример: вводим 358, надо что бы получилось 853.

@shum_ont · 16.11.2011, 14:21

Pascal
1
2
3
4
5
6
7
8
var i,buf:string;
    i2:byte;
begin
read(i);
for i2:=0 to Length(i)-1 do
   buf:=buf+i[Length(i)-i2];
write(buf);
end.

@Севак · 16.11.2011, 14:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var x,a,b,c: integer;
begin
writeln('Введите трехзначное число');
readln(x);
if (x>99) and (x<1000) then
begin
a:=x div 100;
b:=(x div 10) mod 10;
c:=(x mod 100) mod 10;
writeln(c,b,a);
end
else writeln('Число не трехзначное');
end.

@Cl1kUs · 16.11.2011, 14:43 **[ТС]**

Все, у меня получилось уже.
Если кому интересно то вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
program pas;
var a,b,c,n:integer;
 
Begin
  write('');
  readln (n);
  a:=n div 100;
  b:=(n mod 100) div 10;
  c:=(n mod 100) mod 10;
  writeln(c,b,a);
  end.

@Севак · 16.11.2011, 14:45

Сообщение от Cl1kUs

Все, у меня получилось уже.
Если кому интересно то вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
program pas;
var a,b,c,n:integer;
 
Begin
  write('');
  readln (n);
  a:=n div 100;
  b:=(n mod 100) div 10;
  c:=(n mod 100) mod 10;
  writeln(c,b,a);
  end.

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

@Cl1kUs · 16.11.2011, 14:51 **[ТС]**

Мне на трех значное и надо число, большие числа кстате некоторые правильно показывает а некоторые нет, ну в принцепи у меня получилось сделать для трех значного числа.

@taras atavin · 16.11.2011, 14:53

Сообщение от Cl1kUs

дано трехзначное число, найти... его чисел...

У числа не может быть чисел. Вот представь: "дома этого дома должны быть заселены не позже первого октября", "автомобили этого автомобиля спроектированы в автокаде". У тебя точно такая же фигня.

@Севак · 16.11.2011, 14:54

Сообщение от taras atavin

У числа не может быть чисел. Вот представь: "дома этого дома должны быть заселены не позже первого октября", "автомобили этого автомобиля спроектированы в автокаде". У тебя точно такая же фигня.

цифр, опечатался наверное

@taras atavin · 16.11.2011, 15:07

И задачу за тебя ни кто не составит, это ты должен знать, чего хочешь. Кстати, какое отношение к паскалю имеет составление задач?

@Puporev · 16.11.2011, 15:11

Кстати по условию нужно не цифры числа вывести задом наперед, а поучить новое число, с котрым можно будет и дальше работать.

@Севак · 16.11.2011, 15:38

Сообщение от Puporev

Кстати по условию нужно не цифры числа вывести задом наперед, а получить новое число, с которым можно будет и дальше работать.

ну так если ему нужно было, пусть бы написал, правда я не знаю как это сделать )

@Puporev · 16.11.2011, 15:45

Сообщение от Севак

правда я не знаю как это сделать

да просто

Pascal
1
y:=(x div 100)+(x div 10 mod 10)+(x mod 10)*100;

@Севак · 16.11.2011, 15:54

Сообщение от Puporev

да просто

Pascal
1
y:=(x div 100)+(x div 10 mod 10)+(x mod 10)*100;

если правильно тебя понял, то будет вот так:

Pascal
1
y:=(x div 100)+(x div 10 mod 10)*10+(x mod 10)*100;

пример: 325
y=3+2*10+5*100=523

@Puporev · 16.11.2011, 15:55

Да, пропустил *10.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Cl1kUs 0 / 0 / 0 Регистрация: 18.10.2011 Сообщений: 28

	дано трехзначное число, 16.11.2011, 14:15. Показов 23398. Ответов 13 Метки нет (Все метки) дано трехзначное число, найти полученное при прочтении его чисел с права на лево Пример: вводим 358, надо что бы получилось 853. 0

@Cl1kUs 0 / 0 / 0 Регистрация: 18.10.2011 Сообщений: 28
	16.11.2011, 14:51 [ТС]
	Мне на трех значное и надо число, большие числа кстате некоторые правильно показывает а некоторые нет, ну в принцепи у меня получилось сделать для трех значного числа. 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	16.11.2011, 15:07
	И задачу за тебя ни кто не составит, это ты должен знать, чего хочешь. Кстати, какое отношение к паскалю имеет составление задач? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	16.11.2011, 15:11
	Кстати по условию нужно не цифры числа вывести задом наперед, а поучить новое число, с котрым можно будет и дальше работать. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	16.11.2011, 15:55
	Да, пропустил *10. 0