Пожаловаться
- 02.01.2018 11:27
- Информатика
- remove_red_eye 679
- thumb_up 22
Ответы и объяснения 1
Var
i, j, t: integer;
begin
for i:=100 to 999 do
begin
t:=0;
for j:=2 to i div 2 do
begin
if i mod j = 0 then
inc(t);
if t > 0 then
break;
end;
if t = 0 then writeln(i);
end;
end.
Пожаловаться
- 03.01.2018 09:21
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы