Напишіть код до задач на Python Задача “Numbers.py”

Дано два числа a і b. Якщо їх сума менша за їх добуток, то вивести знак ‘+’, інакше – ‘*’.

Контрольні приклади

1) a= 21, b= 4 => +

2) a= 9, b= 1 => *

Задача “Season.py”

Дано номер місяця N. Вивести пору року.

Контрольні приклади

1) N=1 => winter

2) N=4 => spring

3) N=8 => summer

4) N=11 => autumn

Вказівка. Якщо N=3 або N=4 або N=5, то друкувати ‘spring’.

Умова N=3 мовою Python записується N==3.

Задача “Computers_mouse.py”

Одного разу комп’ютерна мишка вирішила, що непогано мати ще один килимок на запас. Щоб ніхто не помітив запасного килимка, вона вирішила сховати його під свій прямокутний килимок.

Пробравшись вночі на склад, мишка виявила там лише круглі килимки. Чи зможе вона непомітно заховати круглий килимок під прямокутним?

Вхідні дані

Дано три натуральних числа W, H, R, де W – ширина, H – висота прямокутного килимка, R – радіус запасного килимка.

Вихідні дані

Програма виводить слово “YES”, якщо запасний килимок можна заховати під прямокутним, “NO” – в іншому випадку.

Контрольні приклади

1) W= 4, H= 7, R= 2 => YES

2) W= 28, H= 12, R= 9 => NO

PASCAL ABC

program z1;  

var a,s:integer;  //описание переменных

begin

readln(a);  //вводим первое число

s:=0;  //начальное значение суммы

while a<>0 do //условие ввода (ввод оканчивается нулем)

 begin

   if (a mod 10=4) and (a mod 6=0) then s:=s+a;  //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

   readln(a) //заново вводим число

 end;

writeln(s)  //вывод суммы, когда весь цикл завершится

end.

P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается

const
  n = 15;

var
  a, b: array[1..n] of integer;
  i, j, step, t: integer;
  flag: boolean;

begin
  Randomize;
  Writeln('Исходные элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(10) - 5;
    Write(a[i]:4)
  end;
  { Сортируем массив (метод Шелла) }
  step := n div 2;
  while step > 0 do
  begin
    for j := n - step downto 1 do
    begin
      i := j;
      while i <= n - step do
      begin
        if a[i] > a[i + step] then
        begin
          t := a[i]; a[i] := a[i + step]; a[i + step] := t
        end;
        i := i + step
      end
    end;
    step := step div 2
  end;
  {
  проходим по массиву и если элемент встречается более одного раза подряд,
  переносим его в другой массив
  }
  j := 0; t := a[1]; flag := false;
  for i := 2 to n do
  begin
    if (a[i] = t) and (not flag) then
    begin
      j := j + 1; b[j] := t; flag := true
    end
    else begin flag := false; t := a[i] end
  end;
  Writeln;
  Writeln('Отобранные элементы массива');
  for i := 1 to j do Write(b[i]:4);
  Writeln
end.

Тестовое решение:

Исходные элементы массива
  -2   4   1  -3  -1  -2  -5  -1   2   4   1   3  -5  -2  -3
Отобранные элементы массива
  -5  -3  -2  -1   1   4