Программы предназначены для работы с векторной графикой:
Corel Draw
Gimp
Объяснение:
CorelDraw - это векторный графический редактор, разработанный и продается компанией Corel Corporation из Оттавы. Текущую версию продукта - CorelDraw Graphics Suite 2019 было выпущено в марте 2019 года.
GIMP - растровый графический редактор, с некоторой поддержкой векторной графики. Проект начала в 1995 году Spencer Kimball и Peter Mattis как учебный проект в Беркли. В 1997, после окончания ими университета GIMP стал частью проекту GNU.
Var
K:real;
d:integer;
Begin
if A > 1 then
if (A = 2)or(A = 3) then p:=p+1
else
if A mod 2 <> 0 then
Begin
K:=Sqrt(A);
d:=3;
While (d<K)and(A mod d <> 0) do
d:=d+2;
if A mod d <> 0 then
Begin
p:=p+1;
Write('(простое)')
End
End;
End;
Const
N = 20;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(99)+1;
Write(' ',A[i]);
P(A[i],k);
End;
WriteLn;
WriteLn('Кол-во простых чисел в массиве: ',k);
End.