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

Question

Информатика

Костюра

21 сентября, 15:31

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

+3

Ответы (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)