string

@sourus · Регистрация: 25.06.2010

Author24 — интернет-сервис помощи студентам

Дано целое положительное число. Вывести символы, изображающие

цифры этого числа (в порядке слева направо).

если не сложно

@AnTro.Net · 25.06.2010, 20:19

сколько у тебя их там?)))
то есть есть число 1234 и должно вывести 1 2 3 4?

@Puporev · 26.06.2010, 08:00

Можно так.

Pascal

uses crt;
var a:longint;
    c:array[1..10] of char;
    i,n:byte;
begin
clrscr;
repeat
write('Введите целое положительное число a=');
readln(a);
until a>0;
n:=0;
while a>0 do
 begin
  n:=n+1;
  c[n]:=chr(a mod 10+48);
  a:=a div 10;
 end;
for i:=n downto 1 do
write(c[i],' ');
readln
end.

@sourus 1 / 1 / 1 Регистрация: 25.06.2010 Сообщений: 45
		1
	string 25.06.2010, 20:16. Показов 1053. Ответов 2 Метки нет (Все метки) Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева направо). если не сложно 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	25.06.2010, 20:19	2
	сколько у тебя их там?))) то есть есть число 1234 и должно вывести 1 2 3 4? 0

	26.06.2010, 08:00

string

Решение