Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.