Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Проверьте, является ли число простым.

5-9 класс

Вводится одно число n.

Vladochca1 30 янв. 2014 г., 18:11:43 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ksuschkaogorod
30 янв. 2014 г., 21:10:49 (10 лет назад)

function IsPrime(x: integer): boolean;
var s, n: integer;
begin
  Result := x > 1;
  s := Trunc(Sqrt(x)) + 1;
  n := 1;
  while (n < s) and Result do begin
    n := n + 1;
    Result := Result and (x mod n > 0);
  end;
end;

var x, s: integer;
begin
  readln(x);
  if IsPrime(x) then
    writeln('prime')
  else 
    writeln('composite');
end.

+ 0 -
Yutmieg
30 янв. 2014 г., 22:44:11 (10 лет назад)

На каком языке программирования необходимо сделать задачу? Pascal?

+ 0 -
Nastay007
31 янв. 2014 г., 0:01:11 (10 лет назад)

Pascal

Ответить

Читайте также

Дано трехзначное число. Проверить, является ли число палиндромом, т.е. числом, которое читается одинаково слева направо и справа налево (число единиц

может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.

Тема:Integer

Задача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).
Помогите пожалуйста)

Помогите пожалуйста!

Задания в pascal
1)Найти среднее арифметическое n чисел.
2)Является ли число простым.
3)Найти наибольший общий делитель двух чисел.
4)Спортсмен пробежал 10 км за 1 день,каждый следующий день пробегал на 10% больше,
сколько он пробежал за n дней.
5)Найти количество делителей у данного числа.
Решите буду очень признателен.



Вы находитесь на странице вопроса "Проверьте, является ли число простым.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.