написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первого
Ответы
Ответ дал:
0
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;
var len,i :integer;
str :string ;
begin
str := intToStr(number);
len := length(str);
for i:= 1 to len do
writeln(str[i]);
end;
Вас заинтересует
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад