Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево).

@саша 1.9.9.4 · Регистрация: 17.05.2011

@Ev[G]eN · 04.06.2011, 20:21

Pascal

var
 n, i: integer;
 st: string;
begin
 readln(n);
 str(n, st);
  for i:=length(st) downto 1 do
   write(st[i], ' ');
end.

@саша 1.9.9.4 5 / 5 / 0 Регистрация: 17.05.2011 Сообщений: 53
		1
	Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево). 03.06.2011, 20:22. Показов 8260. Ответов 1 Метки нет (Все метки) Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево). 0

	04.06.2011, 20:21

Опции темы

Решение