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

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

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

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

Pascal

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

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

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

var N,a: integer;
begin
read(N);
a:=N div 360;
write(a);
end.

@WebMax 2.0 · 01.12.2011, 23:33

Pascal

var N,a: integer;
begin
read(N);
a:=N div 3600;
write(a);
end.

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

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

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

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 23:09 [ТС]	15
	Сообщение от versa4e компилятор и не выдаст ошибки, если ошибка в логике. Ладно, 9 - это двузначное число? всё догнал наконецто спасибо) 0

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

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

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 22:14 [ТС]	5
	Сообщение от sheldon-yura да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1 я просил обяснить не строку write а while 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	01.12.2011, 22:19	6
	это значит, что пока в a хранится значение меньше десяти либо больше ста(диапазон двузначных чисел), мы продолжаем ввод. Если присвоить a:=9, то условие станет ложным(false 9>9 и false 9>100) и цикл прекратится, но ведь девятка не двузначное, поэтому в условии стоит 10. Добавлено через 4 минуты Сообщение от sheldon-yura да это фигня. надо выделить 1 цифру, затем 2 и умножить 1 и 2 на 10 и сложить с 2 и 1 если ты умножишь 1 и 2 цифру на 10, а потом выполнишь сложение - ты получишь совсем другое число. 1

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 22:20 [ТС]	7
	Сообщение от versa4e это значит, что пока в a хранится значение меньше десяти либо больше ста(диапазон двузначных чисел), мы продолжаем ввод. Если присвоить a:=9, то условие станет ложным(false 9>9 и false 9>100) и цикл прекратится, но ведь девятка не двузначное, поэтому в условии стоит 10. Добавлено через 4 минуты если ты умножишь 1 и 2 цифру на 10, а потом выполнишь сложение - ты получишь совсем другое число. я тока начал етой фигнёй стродать, мозги кипят, пы таюсь разобратся щас с тем что ты написал =) 0

@Joke+R 41 / 41 / 4 Регистрация: 18.11.2011 Сообщений: 112
	01.12.2011, 22:27	8
	Сообщение от sergey96 while (a<9)or(a>100)do read(a); Программа выйдет из цикла, когда его условие станет ложным(т.е. когда введешь 2-значное число). Пока не введешь 2-значное число программа будет считывать 'a' раз-за-разом. 0

@sergey96 0 / 0 / 0 Регистрация: 30.11.2011 Сообщений: 12
	01.12.2011, 22:29 [ТС]	9
	Сообщение от versa4e значение меньше десяти либо больше ста(диапазон двузначных чисел), , поэтому в условии стоит 10. получается есть свой диапазон для твух трех четырёх и тд. значных чисел? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	01.12.2011, 22:33	10
	Сообщение от sergey96 получается есть свой диапазон для твух трех четырёх и тд. значных чисел? Да, диапазон двузначных чисел от 10 до 99, поэтому в цикле мы создаем условие, которое не даст нам ввести ничего, кроме чисел из этого диапазона. И именно поэтому (a<9) or (a>100) неправильно, если ввести 9, то данное число войдет в диапазон. 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	01.12.2011, 23:00	12
	Сообщение от sergey96 но я немогу понять почему у меня диапазон while (a<9)or(a>100)do и ошибок нет и всё выходит как положено? компилятор и не выдаст ошибки, если ошибка в логике. Ладно, 9 - это двузначное число? 0

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

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