Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.
Answers & Comments
Pashq4
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.
Answers & Comments
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.