задача на множества Опции

[natik3]

Дана последовательность из n натуральных чисел.Написать программу,которая выводит в возрастающем порядке все цифры,которые входят хотя бы в одно число.

[Krjuger]

Наиглупейшие ошибки,не там begin поставили, в процедуры вы передаете не массив целых чисел, а целое число ,ваша функция печати ничего не возвращает,так почему же она является функцией, а не процедурой и подобные ошибки.

const n = 4;
type
 mas=array[1..n] of integer;

procedure Vvod(var a:mas);
var
i:integer;
begin
for i:=1 to n do
read(a[i]);
end;


procedure Print_mas (var a:mas);
var
 i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

var
i, x : Integer;
s : set of byte;
b : boolean;
a:mas;
begin
Vvod(a);
Print_mas(a);
s := [];
for i := 1 to n do
begin
X := a[i];
b := true;
while b or (X <> 0) do
begin
s := s + [x mod 10];
b := false;
x := x div 10;
end;
end;

for i := 0 to 9 do
begin
  if i in s then writeln(i);
end;
writeln;
readln;
end.

Сообщение отредактировано: Krjuger - 5.06.2012 17:55

[natik3]

Наиглупейшие ошибки,не там begin поставили, в процедуры вы передаете не массив целых чисел, а целое число ,ваша функция печати ничего не возвращает,так почему же она является функцией, а не процедурой и подобные ошибки.

const n = 4;
type
 mas=array[1..n] of integer;

procedure Vvod(var a:mas);
var
i:integer;
begin
for i:=1 to n do
read(a[i]);
end;
procedure Print_mas (var a:mas);
var
 i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

var
i, x : Integer;
s : set of byte;
b : boolean;
a:mas;
begin
Vvod(a);
Print_mas(a);
s := [];
for i := 1 to n do
begin
X := a[i];
b := true;
while b or (X <> 0) do
begin
s := s + [x mod 10];
b := false;
x := x div 10;
end;
end;

for i := 0 to 9 do
begin
  if i in s then writeln(i);
end;
writeln;
readln;
end.

оно вылетает почему то,после ввода цифр..хотя вроде все так..не пойму почему...