Вопрос по информатике:
Вывести все простые трехзначные числа через паскаль
program z5;
uses crt;
var x, i, k : integer;
begin
for i:=100 to 999 do
for x:=1 to i-100 do
if i mod x=0 then k:=k+1;
if k=2 then writeln('Да') else writeln ('Нет')
end.
Вот что у меня получилось, что мне еще нужно дописать?
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.07.2015 06:15
- Информатика
- remove_red_eye 19103
- thumb_up 39
Ответы и объяснения 1
begin
for a := 100 to 999 do
begin
k:=0;
for i:=2 to a div 2 do
if a mod i = 0 then k := k + 1;
if k = 0 then write(a, ' ');
end;
end.
- 05.07.2015 02:11
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.