МА
Марьяна А
Помогите сделать блок схему к исходнику плз...
uses crt;
Var M:set of 1..50;
x,i:integer;
Begin
M:=[];
For i:=1 to 10 do
Begin
Writeln('введите ','i');
readln(x);
M:=m+[x];
end;
end.
uses crt;
Var M:set of 1..50;
x,i:integer;
Begin
M:=[];
For i:=1 to 10 do
Begin
Writeln('введите ','i');
readln(x);
M:=m+[x];
end;
end.
Держи.
А что тут непонятного? Разве что кого-то может озадачить цикл, так он делается условием, просто трушная стрелка в начало цикла.