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

Question

Информатика

Фетинья

30 декабря, 05:56

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

+5

Ответы (2)

Знаете ответ?

Апраксин · Answer 1

Var

a:integer;

procedure Stolbic (c:integer) ;

var

s:string;

i:integer;

begin

str (c, s) ;

for i:=1 to length (s) do

writeln (s[i]) ;

end;

begin

writeln ('введите число:') ;

readln (a) ;

writeln ('результат:') ;

stolbic (a) ;

end.

Наркис · Answer 2

Var

a:integer;

procedure Stolbic (c:integer) ;

var

s:string;

i:integer;

begin

str (c, s) ;

for i:=1 to length (s) do

writeln (s[i]) ;

end;

begin

writeln ('введите число) ;

readln (a) ;

writeln ('результат) ;

stolbic (a)