- 5. Объясните значение слов «идентификация», «организация», «реорганизация», «интерпретация», «рефлексия». Представь- те один из из перечисленных процессов с сиквей- пятистрочника, строящегося по следующей схеме: 1) название темы сиквейна (в данном случае название про- цесса) одним словом или словосочетанием; 2) описание темы двумя прилагательными или причастиями; 3) описание действий, связанных с темой, тремя словами; 4) фраза из четырёх слов, показывающая отношение к теме, объекту; 15

           string Price;

           Console.WriteLine("Введите сумму покупки.");

           Price = Console.ReadLine();

           if (ushort.TryParse(Price, out ushort NewPrice))

           {

               if (NewPrice >= 1000 && NewPrice < 1500)

               {

                   var DiscountedPrice = NewPrice - NewPrice * 0.03;

                   Console.WriteLine("Цена с учётом скидки 3%: {0:C}", DiscountedPrice);

               }

               else if (NewPrice > 1500)

               {

                   var DiscountedPrice = NewPrice - NewPrice * 0.05;

                   Console.WriteLine("Цена с учётом скидки 5%: {0:C}", DiscountedPrice);

               }

               else

               {

                   Console.WriteLine("Цена без учёта скидки: {0:C}", NewPrice);

               }

           }

           else

           {

               Console.WriteLine("Введите корректное значение.");

               Console.ReadLine();

               return;

           }

           Console.ReadLine();

C#

Free Pascal

const

 n=3;

var

 a : array [0..n-1, 0..n-1] of integer;

 i, j : integer;

begin

(* тут вводим массив поэлементно *)

 writeln('Введите массив A: ');

 for i:=0 to n-1 do

   for j:=0 to n-1 do begin

     write('a[',i,',',j,']=');

     readln(a[i,j]);

   end;

(* печатаем массив в виде матрицы*)

 for i:=0 to n-1 do begin

   for j:=0 to n-1 do

     write(a[i,j], ' ');

   writeln;

 end;

(* печатаем в виде матрицы корни из каждого соответствующего элемента*)

 for i:=0 to n-1 do begin

   for j:=0 to n-1 do

     write(sqrt(a[i,j]):2:2, ' ');

   writeln;

 end;

end.