Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/16: Рейтинг темы: голосов - 16, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 25
1

Описать функцию IsPrime(N) логического типа, проверяющую, является ли параметр простым числом

20.05.2012, 11:54. Просмотров 3223. Ответов 1
Метки нет (Все метки)


Описать функцию IsPrime(N) логического типа, возвращающую Тгuе, если целый параметр N (> 1) является простым числом, и Falsе в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кро¬ме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2012, 11:54
Ответы с готовыми решениями:

Описать функцию IsPrime(N) логического типа
Описать функцию IsPrime(N) логического типа, возвращающую TRUE, если целый параметр N(>1) является...

Описать функцию Pro(n) логического типа, возвращающую True, если целый параметр является простым числом
Написать программу где описывается функция Prо(N) логического типа, возвращающую True, если целый...

Описать функцию IsPrime(N) логического типа, возвращающую True, если параметр является простым числом
Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1)...

Описать функцию isPrime(N) логического типа, возвращающую TRUE, если параметр N(>1) является простым числом
Описать функцию isPrime(N) логического типа, возвращающую TRUE, если целый параметр N(>1) является...

1
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
20.05.2012, 14:19 2
Лучший ответ Сообщение было отмечено denwwwru как решение

Решение

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
uses crt;
var i,k: byte; n: integer;
 
function IsPrime (nn: integer): boolean;
var j,kd: integer;
begin
kd:=0;
if nn<=1 then IsPrime:=false else
begin
   for j:=2 to nn-1 do
       if nn mod j=0 then inc(kd);
IsPrime:=kd=0;
end;
end;
 
begin
for i:=1 to 10 do
    begin
    write('-->'); readln(n);
    if IsPrime (n) then inc(k);
    end;
writeln(k);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2012, 14:19

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

Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом
Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (&gt; 1)...

Описать функцию IsPowerN(K, N ) логического типа, проверяющую является ли параметр K степенью числа N
Описать функцию IsPowerN(K, N ) логического типа, возвращающую TRUE, если целый параметр K(&gt;0)...

Описать функцию IsPowerN (K, N ) логического типа, определяющую, является ли целый параметр K степенью числа N
Описать функцию IsPowerN(K, N ) логического типа, возвращающую TRUE, если целый параметр K(&gt;0)...

Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа 5
Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (&gt; 0)...


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

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

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