Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.10.2017 13:35
- Информатика
- remove_red_eye 11411
- thumb_up 27
Ответы и объяснения 1
Program Test;
Var
N,n1,tst,i,count:integer;
Begin
readln(N);
while n1
count:=0;
for i:=1 to n1 do begin
if n1 mod i = 0 then inc(count);
end;
if n1>1 then if count=2 then writeln(n1);
end;
End.
- 23.10.2017 21:47
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.