uses crt; procedure Prost(a:longint;var f:boolean); var i:longint; begin if a<3 then f:=false else begin f:=true; for i:=2 to round(sqrt(a)) do if a mod i=0 then f:=false; end; end; var a,b,i,k:longint; f:boolean; begin clrscr; repeat writeln('Введите диапазон натуральных чисел a<b:'); readln(a,b); until (a>=0)and(b>a); k:=0; for i:=a to b do begin Prost(i,f); if f then begin write(i,' '); k:=1; end; end; if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!'); readln end.
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.