===== 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.