Question

Помогите с задачей на питоне пожалуйста!

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Лобовое решение в 1 строчку кода:

##

ReadArrInteger(ReadInteger).Where(x->x mod 7 = 0).Min.Print;

Решение на PascalABC.NET:

##

var a:= ReadArrInteger(ReadInteger);

var r:= Integer.MaxValue;

foreach var c in a do

 if ((c mod 7 = 0) and (c < r))

   then r:= c;

print(r);

Решение без массива на СИ:

#include <stdio.h>

int main() {

   int a;

   int r = 0;

   while (scanf("%i", &a) == 1) {

       if (a % 7 == 0 && a < r) {

           r = a;

       }

   }

   printf("%i", r);

   return 0;

}

Задание выполнено!