Напишите программу, которая выводит ** экран все цифры числа, начиная с первой.Входные...

Question

Напишите программу, которая выводит на экран все цифры числа, начиная с первой.Входные данныеВходная строка содержит натуральное число N .Выходные данныеПрограмма должна вывести все цифры введённого числа в одной строке, начиная с первой. Цифры отделяются пробелами.Примерывходные данные123выходные данные 1 2 3ТОЛЬКО ЧЕРЕЗ ПАСКАЛЬ АБС, без string. ЦИКЛЫ FOR, WHILEЕсли решение с интернета, то оно не засчитывается.

Answer 1

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.

Comments

нет

---

Введи 310

---

у тя будет 3 1

---

Исправил, извините пожалуйста).

---

Спасибо!

---

если бы мог то и вам бы передал баллы

Answer 2

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.

---

Comments

begin var a := 123450; var n := 1; while n < a do n *= 10; while n <> 1 do begin n := n div 10; Print(a div n mod 10); end;end.

---

ого спасибо тебе

---

только тут ошибка, первый цикл нужно while n <= a do n*=10

---

помогите

---

пожалуйста

---

очень надо

---

https://znanija.com/task/31722626

---

Iolandavalerypad353

---

как же ты меня выручишь бро если поможешь

---

очень надо