блин ребят мне очень срочно
Приложения:
Ответы на вопрос
Ответил Twyla27
0
var a: longint;
cif: array [1..5] of integer;
i: integer;
begin
readln (a);
for i:=5 downto 1 do begin
cif [i]:=a mod 10;
a:= a div 10;
end;
for i:=1 to 5 do
writeln (cif [i]);
end.
cif: array [1..5] of integer;
i: integer;
begin
readln (a);
for i:=5 downto 1 do begin
cif [i]:=a mod 10;
a:= a div 10;
end;
for i:=1 to 5 do
writeln (cif [i]);
end.
Новые вопросы