Оформить как функцию
Уважаемые знатоки, помогите это оформить как функцию. Заранее благодарю!
Program razryad;
var a, s, chislo: integer;
m: array [1..7] of string = ('Единиц', 'Десятков', 'Сотен', 'Тысяч', 'Десятков тысяч', 'Сотен тысяч', 'Миллионов');
begin
writeln ('Введите ваше число:');
read(chislo);
s := 0;
while chislo > 0 do
begin
s := s + 1;
a := chislo mod 10;
writeln(m[s], ': ', a);
chislo := chislo div 10;
end;
end.
Ответы (1 шт):
Автор решения: MBo
→ Ссылка
Примерно так. Цикл изменил, чтобы ноль обработать
function xxx(chislo: integer): string;
var a, s: integer;
m: array [1..7] of string =('Единиц', 'Десятков', 'Сотен', 'Тысяч',
'Десятков тысяч', 'Сотен тысяч', 'Миллионов');
begin
s := 0;
repeat
s := s + 1;
a := chislo mod 10;
Result := Result + m[s] + ': ' + IntToStr(a) + ' ';
chislo := chislo div 10;
until chislo = 0;
end;