Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 1
Регистрация: 18.03.2015
Сообщений: 77
1

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

23.04.2015, 16:53. Просмотров 2147. Ответов 1
Метки нет (Все метки)

Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней. Используйте процедуру.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2015, 16:53
Ответы с готовыми решениями:

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

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

Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней
Nemovok, Ты большой молодец ты решил правильно.Я правда удалил строчку где выводит "std::cout <<...

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

1
4028 / 1881 / 2011
Регистрация: 10.12.2014
Сообщений: 7,279
24.04.2015, 06:15 2
Лучший ответ Сообщение было отмечено Brus Wane как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure OutDigits(N : Integer);
begin
  WriteLn('Цифры числа, начиная с последней:');
  repeat
    WriteLn(N mod 10:10); N := N div 10;
  until N = 0;
end;
 
begin
  var N := ReadInteger('Введите число:');
  OutDigits(N);
end.
Добавлено через 2 минуты
А вот так красивее:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Integer.OutDigits;
begin
  WriteLn('Цифры числа, начиная с последней:');
  var N := Abs(Self);
  repeat
    WriteLn(N mod 10:10); N := N div 10;
  until N = 0;
end;
 
begin
  var N := ReadInteger('Введите число:');
  N.OutDigits;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2015, 06:15

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

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

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

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

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

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

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


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

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

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