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

Question

Информатика

Зинич

9 мая, 18:43

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

+5

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