Ответы
Ответ дал:
0
Ответ:
(см. объяснение)
Объяснение:
Лобовое решение в 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;
}
Задание выполнено!
djenburunduk:
Но в задании же сказано,что на языке питон надо,но всё равно спасибо
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад