Составте блок схему по программе
Очень нада
Program z1;
Const m=1000;
Var a:array[1..m] of integer;
n, i, p, k, j : integer;
Begin
Write(‘n=‘); readln (n);
i:=0; p:=1;
While p k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j=0 then k:=k+1;
if k=0 then begin I:=i+1; a[i]:=p; end;
p:=p+1;
end;
For j:=1 to I do writeln (a[j],’’);
Readln;
end.

mvyazaniya    2   30.04.2020 13:17    2