Предмет: Информатика, автор: Miray05lal

Составить программу следующей задачи: на вход подается число. Из этого числа выделить сколько в нем 1000, сколько - 500, сколько - 100, сколько - 10 и оставшиеся единицы.


Miray05lal: А если по принцыпу остаток?
Miray05lal: *принципу
Miray05lal: Эм... Я информатику вообще не понимаю. И все что вы пишите я понять не в силах...
Miray05lal: Я желаю понять, но мой мозг отсталый и я ничего не понимаю
Miray05lal: Я знаю что нужно использовать mod и div

Ответы

Автор ответа: BobbyFresnel
1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Введите число');

 Write(n, ' = ');

 var t1000 := n div 1000;

 n := n mod 1000;

 var t500 := n div 500;

 n := n mod 500;

 var t100 := n div 100;

 n := n mod 100;

 var t10 := n div 10;

 n := n mod 10;

 Write(t1000, ' x 1000 + ', t500, ' x 500 + ',

     t100, ' x 100 + ', t10, ' x 10 + ', n, ' x 1')

end.

Приложения:

Miray05lal: Пасиба большое))
Похожие вопросы