написать число вразбивку

@risky fellow · Регистрация: 17.10.2013

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

Натуральное число n. Напечатать его вразбивку(ставя перед каждой цифрой столько пробелов, каково значение этой цифры.) Например, число 1234 печатается 1 2 3 4.

@pro100smart · 19.10.2013, 12:28

Pascal

var n: string;
i, k, j, o:integer;
begin
read (n);
for i:=1 to length(n) do
begin
val(n[i], k, o);
    for j:=1 to k do
    begin
        write (' ');
    end;
    write (n[i]);
end;
end.

@risky fellow 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 11
		1
	написать число вразбивку 19.10.2013, 11:32. Показов 1080. Ответов 1 Метки нет (Все метки) Натуральное число n. Напечатать его вразбивку(ставя перед каждой цифрой столько пробелов, каково значение этой цифры.) Например, число 1234 печатается 1 2 3 4. 0

	19.10.2013, 12:28

написать число вразбивку

Решение