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

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

23.04.2012, 08:57. Просмотров 673. Ответов 1
Метки нет (Все метки)

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

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

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

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

Интервал натуральных чисел. Найти все простые числа в этом интервале и их количество.
Дан интервал натуральных чисел от N до М. Найти все простые числа в этом...

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

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,760
Записей в блоге: 1
23.04.2012, 10:20 2
Лучший ответ Сообщение было отмечено Елка-елка как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program prostie;
Var k,i,a,b,s:integer;
Procedure Prostie(i:integer;Var s:integer);
Var n:integer;
Begin
     n:=0;
     For k:=1 to b do
     if i mod k = 0   then inc(n);
     if n=2 then Begin inc(s);write(i,' '); end;
end;
Begin
     write('Введите a= ');readln(a);
     write('Введите b= ');readln(b);
     s:=0;
     For i:=a to b do
     Prostie(i,s);
     writeln;
     Writeln('Кол-во простых= ',s);
     readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2012, 10:20

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

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

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


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

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

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