Python. 80 . решить с циклов, диапазонов 1)напишите программу, которая получает натуральные числа a и b (a пример: введите границы диапазона: 10 20 11 13 17 19 2)в магазине продается мастика в ящиках по 15 кг, 17 кг, 21 кг. как купить ровно 185 кг мастики, не вскрывая ящики? сколькими способами можно это сделать? 3)ввести натуральное число n и вывести все натуральные числа, не превосходящие n и делящиеся на каждую из своих цифр. пример: введите n: 15 1 2 3 4 5 6 7 8 9 11 12 15

№1. k = int(input('начало диапазона '))n = int(input('конец диапазона '))a = [0] * n # создание массива с n количеством элементовfor i in range(n): # заполнение массива    a[i] = i a[1] = 0m = 2 # замена на 0 начинается с 3-го элементаwhile m < n: # перебор всех элементов до заданного числа  if a[m] ! = 0:       j = m * 2     while j < n:         a[j] = 0         j = j + m         m += 1# вывод простых чисел на экранb = []for i in a:       if a[i] ! = 0 and i > = k:       b.append(a[i])del aprint(b) №2 count = 0for i in range(13):     for j in range(11):         for k in range(9):             if 185 == i*15+j*17+k*21:                 count += 1                print(i,j,k)print('всего способов - ', count) №3 x = int(print('\n'.join( str(n) for n in range(x+1) if all(x ! = 0 and n % x == 0 for x in map(int, str(

pascal:

 

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

 

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.