Напишите программу, которая выводит на экран все цифры числа, начиная с первой.
Входные данные
Входная строка содержит натуральное число N .
Выходные данные
Программа должна вывести все цифры введённого числа в одной строке, начиная с первой. Цифры отделяются пробелами.
Примеры
входные данные
123
выходные данные
1 2 3
ТОЛЬКО ЧЕРЕЗ ПАСКАЛЬ АБС, без string.
ЦИКЛЫ FOR, WHILE
Если решение с интернета, то оно не засчитывается.
Ответы
Ответ дал:
0
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 N>0 do begin
t:=t*10 + (N mod 10);
N:=N div 10;
end;
while t>0 do begin
write(t mod 10,' ');
t:=t div 10;
end;
for N:=1 to k do
write('0 ');
end.
Ответ дал:
0
Введи 310
Ответ дал:
0
у тя будет 3 1
Ответ дал:
0
Исправил, извините пожалуйста).
Ответ дал:
0
Спасибо!
Ответ дал:
0
если бы мог то и вам бы передал баллы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/2ae/2ae8063e422d12e04a03b9e88f56a1d4.png)
Ответ дал:
0
очень надо
Ответ дал:
0
https://znanija.com/task/31722626
Ответ дал:
0
Iolandavalerypad353
Ответ дал:
0
как же ты меня выручишь бро если поможешь
Ответ дал:
0
очень надо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад