Question

70 баллов за задание много баллов!Переведите программу из языка Паскаль в язык Питон!var del, count, min, i: longint;begin count := 0; del := 0; min := 22001; for i := 11000 to 22000 do begin if i mod 11 = 0 then del := del + 1; if i mod 13 = 0 then del := del + 1; if i mod 17 = 0 then del := del + 1; if i mod 19 = 0 then del := del + 1; if del = 2 then begin count := count + 1; if min > i then min := i; end; del := 0; end; writeln(count, min);end.​

Answer 1

count = 0

delim = 0

min = 22001

for i in range(11000,22000):

   if (i % 11 == 0): delim += 1

   if (i % 13 == 0): delim += 1

   if (i % 17 == 0): delim += 1

   if (i % 19 == 0): delim += 1

   if (delim == 2):

       count += 1

       if (min > i): min = i

   delim = 0

print(count, min)

Answer 2

Вот перевод данной программы на язык Python:

pythonCopy code
count = 0
del_count = 0
min_val = 22001

for i in range(11000, 22001):
    if i % 11 == 0:
        del_count += 1
    if i % 13 == 0:
        del_count += 1
    if i % 17 == 0:
        del_count += 1
    if i % 19 == 0:
        del_count += 1

    if del_count == 2:
        count += 1
        if min_val > i:
            min_val = i

    del_count = 0

print(count, min_val)

Теперь программа переписана на Python.