Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x, если01. (y:3:0)

Запусти программу и введи значение От

Растровое графическое изображение формируется в процессе сканирования изображений и фотографий с бумаги или фотопленок, а также при использовании цифровых фото и видеокамер. РГИ (растровое графическое изображение) очень чувствительно к масштабированию; формируется из отдельных точек - пикселей.

Векторное же графическое изображение формируется из линий, прямоугольников, треугольников, квадратов и т.д., которые сохраняются в памяти компьютера с математических формул. Используется для сохранения четких контуров изображений; создания рисунков и различных графических объектов.

Function P(A:integer):boolean;
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A > 3 then
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;
Var
   A,n:integer;
   S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
    Begin
    Read(A);
    if P(A) then S:=S+A;
    End;
Write('S = ',S)
End.