Опубликовано 6 лет назад по предмету Информатика от geris

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

Входные данные

Входная строка содержит натуральное число N .

Выходные данные

Программа должна вывести все цифры введённого числа в одной строке, начиная с первой. Цифры отделяются пробелами.

Примеры

входные данные

123

выходные данные

1 2 3
ТОЛЬКО ЧЕРЕЗ ПАСКАЛЬ АБС, без string.
ЦИКЛЫ FOR, WHILE
Если решение с интернета, то оно не засчитывается.

Ответ

Ответ дан supersuperkirip54irs

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.
1. Ответ
  
  Ответ дан geris
  
  Введи 310
2. Ответ
  
  Ответ дан geris
  
  у тя будет 3 1
3. Ответ
  
  Ответ дан supersuperkirip54irs
  
  Исправил, извините пожалуйста).
4. Ответ
  
  Ответ дан geris
  
  Спасибо!
5. Ответ
  
  Ответ дан geris
  
  если бы мог то и вам бы передал баллы
Ответ

Ответ дан iolandavalerypad353

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.
1. Ответ
  
  Ответ дан grattttt
  
  очень надо
2. Ответ
  
  Ответ дан grattttt
  
  https://znanija.com/task/31722626
3. Ответ
  
  Ответ дан grattttt
  
  Iolandavalerypad353
4. Ответ
  
  Ответ дан grattttt
  
  как же ты меня выручишь бро если поможешь
5. Ответ
  
  Ответ дан grattttt
  
  очень надо

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.