Из шестизначного числа выделить цифры и из них сформировать одномерный массив. Pascal

Question

Информатика

Панюля

15 августа, 14:58

Из шестизначного числа выделить цифры и из них сформировать одномерный массив. Pascal

+1

Ответы (1)

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

Луня · Answer 1

Var a:longint;

b: array[1 ... 6] of integer;

i:integer;

begin

readln (a) ;

for i:=6 downto 1 do

begin

b[i]:=a mod 10;

a:=a div 10;

end;

{вывод массива}

for i:=1 to 6 do

writeln (b[i]) ;

end.