Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
stimo15
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
#1

Разбиение на составляющие - Turbo Pascal

07.10.2011, 19:08. Просмотров 404. Ответов 1
Метки нет (Все метки)

Надо написать программу, которая делала следющее... С клавиатуры вводиться число, например 1520, а программа разбивает его на составляющие 1000, 500, 10, 10.
Если не составит трудности, напишите пояснение.
Пожайлуста помогите.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2011, 19:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Разбиение на составляющие (Turbo Pascal):

Разложения числа на составляющие...
Всем доброго времени суток, помогите пожалуйста выполнить задачку

Заменить составляющие готового кода
Даны три массива А, В и C. Сформировать массивы А1, В1 и С1, со-держащие...

Вывести на экран двузначные числа, составляющие ряд Фибоначчи
Вывести на экран двузначные числа, составляющие ряд Фибоначчи помогите...

Выбрать три точки, составляющие равносторонний треугольник наибольшего периметра
Выбрать три разные точки заданного на плоскости множества точек, составляющие...

Определить, есть ли в однонаправленном списке L1 подряд идущие элементы, составляющие список L2.
Помогите решить задачу на Pascal. Дан однонаправленный список L1. Определить,...

Напечатать составляющие его слова в порядке их следования в тексте: каждое слово с прописной буквы
Дан текст( произвольный).Напечатать составляющие его слова(включая предлоги) в...

1
kaas
14 / 14 / 19
Регистрация: 13.12.2010
Сообщений: 76
08.10.2011, 00:16 #2
Лучший ответ Сообщение было отмечено stimo15 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,k,a,sh,b,f:integer;
    s,ch:string;
begin
clrscr;
write('Vvedite chuslo: ');
readln(a);
str(a,s);
k:=length(s);
for i:=1 to k do
begin
delete(s,1,1);
val(s,sh,f);
b:=a-sh;
a:=sh;
write(b,' ');
end;
readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2011, 00:16
Привет! Вот еще темы с решениями:

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

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

Разбиение
Здраствуйте. Хотел бы спросить вашего совета есть программа разбивания числа на...

Разбиение
Всем доброго времени суток. Условие передам своими словами так как нету...


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

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

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