Вопрос Помогите мне с паскаль
- Автор темы aDDoR
- Дата начала
a:=random(9000)+1000;
а вот прога цифры числа в массив и делай с ними что хочешь
program cifr; //цифры числа
uses crt;
var i,k,m,mn:Integer;
n:longint;
c:array[1..9] of integer;
begin
clrscr;
writeln(' Cifri chisla'
;
writeln('----------------------'
writeln;
write('Vvesti chislo ne bolee 9 cifr-->' readln;
k:=0; //определение количества цифр
while n>0 do begin // и запись их в массив
k:=k+1;
c[k]:=n mod 10;
n:=n div 10;
end;
for i:=k downto 1 do
write(c:3);
writeln;
writeln('konec zadachi'
readln;
end.
а вот прога цифры числа в массив и делай с ними что хочешь
program cifr; //цифры числа
uses crt;
var i,k,m,mn:Integer;
n:longint;
c:array[1..9] of integer;
begin
clrscr;
writeln(' Cifri chisla'
; writeln('----------------------'
; writeln;
write('Vvesti chislo ne bolee 9 cifr-->'
; readln; k:=0; //определение количества цифр
while n>0 do begin // и запись их в массив
k:=k+1;
c[k]:=n mod 10;
n:=n div 10;
end;
for i:=k downto 1 do
write(c:3);
writeln;
writeln('konec zadachi'
; readln;
end.
