Составьте по условию задачи А) математическую модель,
Б) алгоритм
В) запишите программу я на языке Python
Г) составьте 3 теста для проверки
Дано количество книг – N (N ≤ 20), а цена одной книги – K. Выведите на экран вычисленную стоимость книг. Цена одной книги составляет K тенге, цена 2 книг – 2 * K тенге ... и т. д.

program raf105;

var i,min,kolN,sumN,sariN:integer;

a:array[1..30] of integer;

begin

writeln('Элементы массива:');

min:=99;

for i:=1 to 30 do

begin

 a[i]:= random(1,60);

 write(a[i],' ');

 if (a[i]<min) and ((a[i] mod 4)=0)

   then min:= a[i];

 if ((a[i] mod 2)<>0)

   then

   begin

     kolN:= kolN+1;

     sumN:= sumN+a[i];

   end;

end;

writeln;

if min=99

 then min:=0;

sariN:= round(sumN/kolN);

writeln('Минимальное значение среди чётных элементов кратных четырём:');

writeln(min);

writeln('Среднее арифметическое среди нечётных элементов:');

writeln(sariN);

end.

Язык программирования PascalABC

program raf105;

var abc,a,b,c:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

c:= abc mod 10;

b:= (abc-((a*100)-c)) div 10;

if (a>b) and (a>c)

 then begin

   a:= a*100;

   if b>c

     then b:=b*10

     else c:=c*10;

  end;

if (b>a) and (b>c)

 then begin

   b:= b*100;

   if a>c

     then a:=a*10

     else c:=c*10;

  end;

if (c>b) and (c>a)

 then begin

   c:= c*100;

   if b>a

     then b:=b*10

     else a:=a*10;

  end;

abc:= a+b+c;

writeln('Компьютер переставил цифры числа в порядке убывания: ',abc);

end.

Язык PascalABC