Разложение числа - Turbo Pascal
Формулировка задачи:
Нужно вывести произвольное число по цифрам через два пробела не используя переменную string: например 687-> 6 8 7
Смог написать только пользуясь string
Решение задачи: «Разложение числа»
textual
Листинг программы
var n,i:integer;
s:string;
begin
Write('Введите число = ');
Readln(n);
str(n,s);
for i:=length(s) downto 1 do
insert(' ',s,i);
writeln('Его разложение = ',s);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д