Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/41: Рейтинг темы: голосов - 41, средняя оценка - 4.85
2 / 2 / 0
Регистрация: 15.02.2011
Сообщений: 41
1

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

27.02.2011, 20:55. Просмотров 7600. Ответов 2
Метки нет (Все метки)

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получить 651.

(помогите пожалуйста кто может,а то завтра надо уже сдавать,заранее спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2011, 20:55
Ответы с готовыми решениями:

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

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

Заданное число заменить на число, которое получается из исходного значения записью его цифр в обратном порядке
В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
6: ( сделать по теме:«Подпрограммы. Нерекурсивные процедуры и функции») Заменить данное...

2
Модератор
62501 / 46690 / 32181
Регистрация: 18.05.2008
Сообщений: 112,956
27.02.2011, 21:01 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n,p:longint;
    i:integer;
begin
clrscr;
write('n=');
readln(n);
p:=0;
while n>0 do
  begin
    i:=n mod 10;
    p:=p*10+i;
    n:=n div 10;
  end;
write(p);
readln
end.
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4163 / 1266 / 228
Регистрация: 27.07.2009
Сообщений: 3,937
27.02.2011, 21:02 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
 A, B: integer;
Begin
 A:=156;
 writeln('Было: ',A);
 B:=0;
 While A<>0 do
  Begin
   B:=(B+(A mod 10))*10;
   A:=A div 10;
  End;
 B:=B div 10;
 Writeln('Получилось: ',B);
 REadln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2011, 21:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Рекурсия: найти число, которое образуется из данного натурального числа при записи его цифр в обратном порядке
Составить программу нахождения числа, которое образуется из данного натурального числа при записи...

Дано целое число с количеством цифр в его записи<10, записать число в обратном порядке
Добрый день! Дано целое число с количеством цифр в его записи&lt;10, записать число в обратном порядке...

Найти число, образованное перестановкой цифр исходного числа в обратном порядке
Дано натуральное трехзначное число N. Найти число, образованное перестановкой цифр исходного числа...

Задано натуральное число. Записать его в обратном порядке
Задано натуральное число. Записать его в обратном порядке. Например, 12345 должно превратиться в...


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

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

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