Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Елка-елка
1 / 1 / 0
Регистрация: 22.04.2012
Сообщений: 47
1

Цикл: Составить программу, определяющую все простые числа на заданном интервале.

25.04.2012, 09:20. Просмотров 1133. Ответов 1
Метки нет (Все метки)

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

Составить программу, определяющую все простые числа на заданном интервале. Сообщить их количество и вывести их значения.
1) Составить программу, определяющую все простые числа на заданном интервале....

Найти все простые числа в заданном интервале
Здравствуйте,можете подсказать,что не верно в задаче : у из интервала от A до...

Составить процедуру, печатающую все простые числа, расположенные в интервале (a;b)
Составить процедуру, печатающую все простые числа, расположенные в интервале...

Составить программу, которая находит все дружественные числа в интервале
привет:) это снова я ....как быть с такой задачей... ............

Составить программу, которая находит все совершенные числа в интервале
Совершенным числом называется число, равное сумме всех делителей, меньших, чем...

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

Решение

Цитата Сообщение от Елка-елка Посмотреть сообщение
1) Составить программу, определяющую все простые числа на заданном интервале.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var i,nz,kz,k: integer;
    ss: string;
 
procedure IsSimple (n: integer; var s: string);
var j,kd: integer;
begin
kd:=0;
for j:=2 to n-1 do
    if n mod j=0 then inc(kd);
if kd=0 then s:='Г¤Г*' else s:='Г*ГҐГІ';
end;
 
begin
writeln('');
readln(nz,kz);
for i:=nz to kz do
    begin
    IsSimple (i,ss);
    if ss='Г¤Г*' then
       begin
       write(i,' ');
       inc(k);
       end;
    end;
writeln();
if k>0 then writeln('Âñåãî ',k) else writeln('Г‚ Г§Г*Г¤Г*Г*Г*îì äèГ*ГЇГ*çîГ*ГҐ Г*ГҐГІ ïðîñòûõ Г·ГЁГ±ГҐГ«');
readln;
end.
пс на мой взгляд, здесь больше подошла бы функция типа boolean, но...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2012, 11:42

Составить программу, которая определяет все 4-значные числа на интервале
Составить программу REBUS, которая определяет все 4-значные числа на интервале...

Составить программу, которая выводит все простые натуральные числа.
Составить программу, которая выводит все простые натуральные числа из...

Составить программу, которая находит все числа-близнецы в интервале [2;1000]
Два нечетных простых числа, разнящиеся на два называются Близнецами (5 и 7, 11и...


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

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

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