Напишите программку, которая выводит на экран все числа числа, начиная с
Напишите программку, которая выводит на экран все числа числа, начиная с первой.
Входные данные
Входная строчка содержит натуральное число N .
Выходные данные
Программка обязана вывести все числа введённого числа в одной строке, начиная с первой. Числа отделяются пробелами.
Образцы
входные данные
123
выходные данные
1 2 3
ТОЛЬКО ЧЕРЕЗ ПАСКАЛЬ АБС, без string.
ЦИКЛЫ FOR, WHILE
Если решение с интернета, то оно не засчитывается.
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
var N,t,k,N1:integer;
BEGIN
readln(N);
N1:=N;
k:=0;
while (N1 mod 10=0) do begin
k:=k+1;
N1:=N1 div 10;
end;
t:=0;
while Ngt;0 do begin
t:=t*10 + (N mod 10);
N:=N div 10;
end;
while tgt;0 do begin
write(t mod 10,' ');
t:=t div 10;
end;
for N:=1 to k do
write('0 ');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.