Разработать ввести в эвм и отладить программу для решения следующей .какая сумма (в рублях) будет проставлена в кассовом чеке,если стоимость товара 520 рублей,и покупатель оплачивает его по дисконтной карте с 5-ной скидкой

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

1)

2) 3 единицы

3) 24D

4) 6

5) 2 раза

Объяснение:

2)

3) Переводим число в 16-ичную систему счисления, для этого делим его на 16 и запоминаем остаток. Затем результат деления также делим на 16 и запоминаем остаток. Повторяем эти действия до тех пор, пока частное не будет равно 0:

589 : 16 = 36, остаток 13

36 : 16 = 2, остаток 4

2 : 16 = 0, остаток 2

Затем записываем остатки от деления в обратном порядке: 2 4 13

Заменяем числа больше 9 на буквы

(10 - A; 11 - B; 12 - C; 13 - D; 14 - E; 15 - F)

Результат:

4)

5) Посчитаем от 1 до 10 в  6-ичной системе счисления:

1 2 3 4 5 10 11 12 13 14