Напишите функцию, которая выводит на экран в столбик все цифры переданного

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

Задать свой вопрос
1 ответ
Procedure num ( x: integer );
var s: string;
i: integer;
begin
s := IntToStr(x);
for i := 1 to length(s) do
writeln( i, ' цифра: ', s[i] );
end;

var numeric: integer;
begin
write('Введите число: ');
readln(numeric);
num(numeric);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт