Решить в ! у вас есть выгрузка оставшегося количества фруктов из базы данных магазинов. каждый словарь в списке - магазин. какие-то фрукты есть в разных магазинах, какие-то только в одном. нужно сделать словарь, в котором ключами будут фрукты, а их количество - значениями. если фрукт есть в наличии в нескольких магазинах - сложите эти значения. словарь: [{'фрукт': 'банан', 'количество': 400}, {'фрукт': 'яблоко', 'количество': 300}, {'фрукт': 'банан', 'количество': 750}, {'фрукт' : 'груша', 'количество' : 20}, {'фрукт': 'яблоко', 'количество': 150}] вывод: фрукты и их общее количество по алфавиту банан 1150 груша 20 яблоко 450 [{'фрукт': 'банан', 'количество': 400}, {'фрукт': 'яблоко', 'количество': 300}, {'фрукт': 'банан', 'количество': 750}, {'фрукт' : 'груша', 'количество' : 20}, {'фрукт': 'яблоко', 'количество': 150}]

Программа:
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
     print("Фигура может сделать ход")
else:
     print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
        or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь

PascalABC.NET

1)
 const     n = 10;
 var
   a : array [1..n] of integer;
   i : integer;
 begin 
  randomize; 
   for i := 1 to n do 
    begin 
    a[i] := 22 + random(114); 
    if a[i] > 100 then 
     writeln (a[i]); 
    end;
  end.

2)
 var 
  a,n,r,i : integer; 
   begin 
 r := 1; 
 readln (a,n); 
  for i := 1 to n do 
   r := r * a;
  writeln (r);
   end.

3)

 var 
 n,i,r : integer;
    begin 
 r := 1; 
 readln (n);
   for i := 1 to n do
    r := r *i; 
 writeln (r);
  end.

4)
 var 
 i : integer;
 begin
  for i := 192 to 223 do
   write(chr(i); ,'  '); 
end.

5)
 var 
 i : integer; 
   begin  
  for i := 255 downto 240 do
   write (chr(i),' ');  
  writeln();  
  for i := 239 downto 224 do 
 write (chr(i),' ');  
  end.

7)
 var 
 i : integer; 
begin  for i := 122 downto 97
do   writeln(chr(i)); 
end.