Написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первого
Procedure Number(number:integer);
var len,i :integer;
str :string ;
begin
str := intToStr(number);
len := length(str);
for i:= 1 to len do
writeln(str[i]);
end;
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
