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


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 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.

Оцени ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика
Вопросы из других категорий

Математика, опубликовано 13.06.2019

Y''-4y'=8-16x !!!!!!!!!!!!!!!