Пожаловаться
- 09.09.2018 21:06
- Информатика
- remove_red_eye 19698
- thumb_up 15
Ответы и объяснения 1
Var a:array [1..10000] of integer; c,b,k,n:integer;
begin
read(n); b:=n; c:=0;
for k:=1 to n do begin
read (a[k]); for k:=1 to a[k]-1 do begin
if a[k] mod k=0 then c:=c+k;
if c=a[k] then b:=b-1;
end;
end; write(b);
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы