Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
руслана12
0 / 0 / 0
Регистрация: 12.04.2014
Сообщений: 2
#1

Выведите цифры числа в столбик и в обратном порядке - Pascal ABC

12.04.2014, 23:27. Просмотров 882. Ответов 2
Метки нет (Все метки)

Введите четырехзначное число. Выведите его цифры а) в столбик; в обратном порядке.
http://www.cyberforum.ru/pascalabc/thread1262122.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2014, 23:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выведите цифры числа в столбик и в обратном порядке (Pascal ABC):

Массив: Вывести в столбик числа по 2 числа в обратном порядке
Даны 8 целых чисел.Вывести в столбик числа по 2 числа в обратном порядке (8 и 7...

Вывести в столбик все натуральные числа из диапазона от a до b в обратном порядке
Вывести в столбик все натуральные числа из диапазона от a до b в обратном...

Укажите все целые числа которые увеличатся на 20% если их цифры записать в обратном порядке
укажите все целые числа которые увеличатся на 20% если их цифры записать в...

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

Дано натуральное число N. Выведите его представление в двоичном виде в обратном порядке
Дано натуральное число N. Выведите его представление в двоичном виде в обратном...

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,648
Записей в блоге: 1
13.04.2014, 08:11 #2
Лучший ответ Сообщение было отмечено руслана12 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var n:integer;
Begin
    write('4-ое число: ');readln(n);
    While n>0 do
    Begin
      writeln(n mod 10);
      n:=n div 10;
    End;
End.
0
Birdman
0 / 0 / 0
Регистрация: 18.05.2014
Сообщений: 5
18.05.2014, 22:25 #3
а в прямом порядке как сделать можно? скажите пожалуйста,а то у меня что-то неправильно вышло
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2014, 22:25
Привет! Вот еще темы с решениями:

Вывести в столбик цифры числа
Procedure Stolbik(a: Integer); Begin If A>0 then Begin Stolbik(A...

Вывести на экран все цифры с их ascii кодами в обратном порядке
Вывести на экран все цифры с их ascii кодами в обратном порядке.

Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней
Напишите программу, которая выводит в столбик цифры введённого числа, начиная с...

Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры
помогите пожалуйста. нужно написать процедуру, которая выводит на экран в...


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

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

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