Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Artykk
2 / 0 / 2
Регистрация: 19.10.2013
Сообщений: 43
#1

Составить подпрограмму, определяющую, является ли заданное число простым - Turbo Pascal

28.10.2013, 16:45. Просмотров 944. Ответов 1
Метки нет (Все метки)

26. Составить подпрограмму, определяющую, является ли заданное число простым, то есть делящимся только на единицу и на само себя. С помощью подпрограммы определить, являются ли простыми числа 6, 11, 21, 31.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 16:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить подпрограмму, определяющую, является ли заданное число простым (Turbo Pascal):

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

Является ли заданное натуральное число n > 1 простым
9. Проверить, является ли заданное натуральное число n > 1 простым.

Определить является ли заданное число A простым
6.Определить является ли заданное число A простым?

Проверить, является ли заданное число простым
Привет Всем. Вот еще одна задачка попалась, является ли заданное число простым?...

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

Определить, является ли заданное натуральное число простым
Определить, является ли заданное натуральное число простым. Выходные данные:...

1
ildwine
Супер-модератор
2978 / 1853 / 1223
Регистрация: 04.03.2013
Сообщений: 4,557
Записей в блоге: 1
28.10.2013, 17:10 #2
Лучший ответ Сообщение было отмечено Artykk как решение

Решение

Например так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function isPrime(num : byte) : boolean;
var j : byte;
begin
  isPrime := true;
  for j := 2 to (num - 1) do
    if num mod j = 0 then 
    begin
      isPrime := false;
      break
    end
end;
 
begin
  writeln(isPrime(6));
  writeln(isPrime(11));
  writeln(isPrime(21));
  writeln(isPrime(31));
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 17:10
Привет! Вот еще темы с решениями:

Определить, является ли заданное натуральное число простым (рекурсия)
11. Определить, является ли заданное натуральное число простым

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

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

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


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

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

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