Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
dario
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 36
1

Найти все трехзначные простые числа. Определить функцию, позволяющую распознавать простые числа

23.01.2013, 13:26. Просмотров 2484. Ответов 1
Метки нет (Все метки)

помогите пожалуйста с программой
Найти все трехзначные простые числа. Определить функцию, позволяющую распознавать простые числа.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.01.2013, 13:26
Ответы с готовыми решениями:

Найти все трехзначные числа,определив функцию, позволяющую распознавать простые числа
1)Найти все трехзначные числа,определив функцию, позволяющую распозновать ...

Получить все двузначные числа, кратные 3, определив функцию, позволяющую распознавать простые числа.
Напишите пожалуйста решение!СПАСИБО! Получить все двузначные числа, кратные 3,...

Определить функцию, позволяющую распознавать простые числа.
Дано натуральное число n. Выяснить, является ли оно простым. Определить...

Найти все трехзначные простые числа
Найти все трехзначные простые числа(простым считается натуральное число,...

Найти и напечатать все простые делители заданного натурального числа числа
1)найти и напечатать все простые делители заданного натурального числа числа

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
23.01.2013, 15:30 2
Лучший ответ Сообщение было отмечено dario как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var i,n,k: integer;
 
function IsSimple (x: integer): boolean;
var j,k: integer;
begin
k:=0;
for j:=2 to x div 2 do
    if x mod j=0 then inc(k);
IsSimple:=k=0;
end;
 
begin
for i:=100 to 999 do
    if IsSimple(i) then write(i,' ');
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2013, 15:30

Найти все простые числа , не превышающие заданного числа
Задача: Найти все простые числа , не превышающие заданного числа w ...

Определить процедуру позволяющую распознавать совершенные числа
даны вещественное n, и целые числа a(1),........,а(n). рассмотреть все отрезки...

Определить все совершенные, простые числа не превышающие P
В общем суть такая, пишу я программу чтобы определить все совершенные числа не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru