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

@sergey96 · Регистрация: 30.11.2011

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

Условие задачи: Дано двух значное число. Вывести число, полученное при перестановке цифр исходного числа.
Вот что у меня получилось:

Pascal
1
2
3
4
5
6
7
8
9
var a,c,d: integer;
begin
read(a);
while (a<9)or(a>100)do
read(a);
c:=a mod 10;
d:=a div 10;
write(c,d);
end.

Правильно?

@versa4e · 01.12.2011, 21:53

Pascal
1
while (a<10)or(a>100)do

Pascal
1
write(10*c+d);

@sergey96 · 01.12.2011, 22:07 **[ТС]**

а можеш плиз разяснить строку while?
почему пишется так как пишется, просто как я понимаю раз двух значное число оно должно быть больше 9(двухзначным) или меньше 100(не трехзначным)? и в зависимости от чево ставится or или and?

@sheldon-yura · 01.12.2011, 22:10

да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1

@sergey96 · 01.12.2011, 22:14 **[ТС]**

Сообщение от sheldon-yura

да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1

я просил обяснить не строку write а while

@versa4e · 01.12.2011, 22:19

это значит, что пока в a хранится значение меньше десяти либо больше ста(диапазон двузначных чисел), мы продолжаем ввод. Если присвоить a:=9, то условие станет ложным(false 9>9 и false 9>100) и цикл прекратится, но ведь девятка не двузначное, поэтому в условии стоит 10.

Добавлено через 4 минуты

Сообщение от sheldon-yura

да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1

если ты умножишь 1 и 2 цифру на 10, а потом выполнишь сложение - ты получишь совсем другое число.

@sergey96 · 01.12.2011, 22:20 **[ТС]**

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

это значит, что пока в a хранится значение меньше десяти либо больше ста(диапазон двузначных чисел), мы продолжаем ввод. Если присвоить a:=9, то условие станет ложным(false 9>9 и false 9>100) и цикл прекратится, но ведь девятка не двузначное, поэтому в условии стоит 10.

Добавлено через 4 минуты

если ты умножишь 1 и 2 цифру на 10, а потом выполнишь сложение - ты получишь совсем другое число.

я тока начал етой фигнёй стродать, мозги кипят, пы таюсь разобратся щас с тем что ты написал =)

@Joke+R · 01.12.2011, 22:27

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

while (a<9)or(a>100)do read(a);

Программа выйдет из цикла, когда его условие станет ложным(т.е. когда введешь 2-значное число). Пока не введешь 2-значное число программа будет считывать 'a' раз-за-разом.

@sergey96 · 01.12.2011, 22:29 **[ТС]**

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

значение меньше десяти либо больше ста(диапазон двузначных чисел), , поэтому в условии стоит 10.

получается есть свой диапазон для твух трех четырёх и тд. значных чисел?

@versa4e · 01.12.2011, 22:33

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

получается есть свой диапазон для твух трех четырёх и тд. значных чисел?

Да, диапазон двузначных чисел от 10 до 99, поэтому в цикле мы создаем условие, которое не даст нам ввести ничего, кроме чисел из этого диапазона. И именно поэтому (a<9) or (a>100) неправильно, если ввести 9, то данное число войдет в диапазон.

@sergey96 · 01.12.2011, 22:54 **[ТС]**

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

Pascal
1
while (a<10)or(a>100)do

Pascal
1
write(10*c+d);

но я немогу понять почему у меня диапазон while (a<9)or(a>100)do и ошибок нет и всё выходит как положено?

@versa4e · 01.12.2011, 23:00

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

но я немогу понять почему у меня диапазон while (a<9)or(a>100)do и ошибок нет и всё выходит как положено?

компилятор и не выдаст ошибки, если ошибка в логике. Ладно, 9 - это двузначное число?

@WebMax 2.0 · 01.12.2011, 23:03

Pascal
1
write(10*c+d);

Не совсем точный вывод ,если введем число оканчивающееся на 0 , выводится только десятки !
Проще Write(c,d);

@versa4e · 01.12.2011, 23:06

Сообщение от WebMax 2.0

Pascal
1
write(10*c+d);

Не совсем точный вывод ,если введем число оканчивающееся на 0 , выводится только десятки !
Проще Write(c,d);

выводятся единицы, если вот так Write(c,d), то форма у числа будет 01?

@sergey96 · 01.12.2011, 23:09 **[ТС]**

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

компилятор и не выдаст ошибки, если ошибка в логике. Ладно, 9 - это двузначное число?

всё догнал наконецто спасибо)

@WebMax 2.0 · 01.12.2011, 23:10

Ну да в принципе , точнее будет 1 , ну 01 тоже число ))

@pascal · 01.12.2011, 23:16

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
      s,d:string;
      i,q:integer;
 
begin
      readln(s);
 
 
      for i:= length(s) downto 1 do
      begin
            d:=d+copy(s,i,1);
      end;
 
  writeln(d);
 
end.

ТАК ТОЖЕ МОЖНО СДЕЛАТЬ

Добавлено через 3 минуты
v

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
ar
a,b,c,d:integer;
begin
readln(a);
if (a>9) and (a<100) then
begin
b:=a div 10;
c:=a mod 10;
d:=(c*10)+b;
end;
writeln(d);
end.

ЕЩЕ ТАКОЕ НАПИСАЛ Я КАК ТЕ ?

@sergey96 · 01.12.2011, 23:24 **[ТС]**

Вот ещо, пожалуста проверьте на парвильность. Условие:
С начала суток прошло N секунд (N-целое). Найти колличество полных часов, прошедших с начал суток.
Вот что у меня получилось

Pascal
1
2
3
4
5
6
var N,a: integer;
begin
read(N);
a:=N div 360;
write(a);
end.

@WebMax 2.0 · 01.12.2011, 23:33

Pascal
1
2
3
4
5
6
var N,a: integer;
begin
read(N);
a:=N div 3600;
write(a);
end.

В 1 минуте 60 сек. , в часе 3600 сек.

@sergey96 · 01.12.2011, 23:37 **[ТС]**

спасибо спасибо спасибо, затупил с нелями, а так правильно остальное?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 22:07 [ТС]
	а можеш плиз разяснить строку while? почему пишется так как пишется, просто как я понимаю раз двух значное число оно должно быть больше 9(двухзначным) или меньше 100(не трехзначным)? и в зависимости от чево ставится or или and? 0

@sheldon-yura 31 / 31 / 16 Регистрация: 02.11.2011 Сообщений: 216
	01.12.2011, 22:10
	да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1 0

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	01.12.2011, 23:10
	Ну да в принципе , точнее будет 1 , ну 01 тоже число )) 1

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 23:37 [ТС]
	спасибо спасибо спасибо, затупил с нелями, а так правильно остальное? 0