Дано натуральное число n. Получить новое число, поставив ноль перед каждой цифрой, кроме первой (например, дано число 567, результат - 50607) на паскале решить

Question

Информатика

Авдуля

13 ноября, 09:30

Дано натуральное число n. Получить новое число, поставив ноль перед каждой цифрой, кроме первой (например, дано число 567, результат - 50607) на паскале решить

+1

Ответы (1)

Знаете ответ?

Иулиана · Answer 1

Uses crt;

var a, h:longint;

b:integer;

begin

clrscr;

writeln ('Введи число') ;

readln (a) ;

h:=1;

while a>0 do

begin

b:=a mod 10;

h:=h*100+b;

a:=a div 10;

end;

a:=0;

while h>10 do

begin

b:=h mod 10;

a:=a*10+b;

h:=h div 10;

end;

writeln (a) ;

readln;

end.