Дано натуральное число n.Получить новое число, поставив ноль перед каждой цифрой , кроме первой (например, дано число 567, результат - 50607) на паскале решить
Дано натуральное число n.Получить новое число, поставив ноль перед каждой цифрой , кроме первой (например, дано число 567, результат - 50607) на паскале решить
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
n, newNum, d, coef: integer;
begin
writeln('Enter a natural number: ');
readln(n);
newNum := 0;
coef := 1;
while n > 0 do
begin
d := n mod 10;
newNum := newNum + d * coef;
if n > 9 then
coef := coef * 100
else
coef := coef * 10;
if n > 9 then
newNum := newNum + 0 * coef;
n := n div 10;
end;
writeln('New number with zeroes: ', newNum);
end.
Пример работы программы:
Enter a natural number:567
New number with zeroes: 50607