напишите процедуру, которая выведет на экран в столбик все цифры переданного ей числа, начиная с первой нужно полностью написать программу
Ответы
Ответ дал:
0
procedure QWERTY (c:integer);
var s:string;i:integer;
begin
s:=inttostr(c);
for i:=1 to length(s) do
writeln(s[i]);
end;
var s:string;i:integer;
begin
s:=inttostr(c);
for i:=1 to length(s) do
writeln(s[i]);
end;
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад