за хорошее знание основ питона. Даю вам задачу и к нему условия, если всё правильно выполнено то я засчитываю ответ , если нет то удаляю его.

У меня есть деньги (n - число) , и мне нужно их разменять.

Размен есть только по 1, 10, 50, 100, 500, 1000, 5000.

Задача нужно вывести на экран наименьшее количество купюр для размена и их количетсво.

Пример:

Ввод: 1301

Вывод: 1000 - 1шт., 100 - 3 шт., 1 - шт.

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

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

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.

Треугольник существует, если a < (b+c), b < (a+c), c < (a + b)
Он равносторонний, если a=b=c
Он равнобедренный, если a=b!=c, a=c!=b, b=c!=a (!= всмысле не равно)
Иначе произвольный
Разве не очевидно?

Програмка на питоне: https://pastebin.com/raw/fKQqvfDb
Там я сначала проверяю, что треугольник существует, потом проверяю, что две его любые стороны равны. Если при этом ещё и сумма всех сторон делённая на 3 равна одной из них, то они все равны => он равносторонний. Иначе он равнобедренный. Если условие про равенство двух сторон не выполняется, то он - произвольный. Как упростить - не знаю.