Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.06.2016 07:37
- Информатика
- remove_red_eye 11573
- thumb_up 50
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger; // количество чисел в последовательности
var s:=ReadArrInteger(n); // читаем последовательность
if s.Any(x->x=1) then
else begin
foreach var m in s do
if s.Where(x->(m>=x) and (m mod x =0)).Count=1 then Print(m);
Writeln
end
end.
Пример
6
10 5 3 15 6 8
5 3 8
- 18.06.2016 07:35
- thumb_up 28
using namespace std;
int main() {
int n;
cin >> n;
int a[n];
for(int i = 0; i < n; i++)
cin >> a[i];
for(int i = 0; i < n; i++) {
int flag = 1;
for(int j = 0; j < n; j++)
if(a[i] % a[j] != 0 && i != j) {
flag = 0;
break;
}
if(flag) cout << a[i] << ' ';
}
}
- 19.06.2016 07:19
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.