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

@Beloglazov · Регистрация: 05.10.2012

Студворк — интернет-сервис помощи студентам

Всем привет. Не могу решить эти задания.
Можете помочь?Я то я пропустил темы,теперь плохо понимаю.

3. Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым (простое число – делится нацело только на 1 и на само себя, н-р: 7, 13, 37).

@Law[L]esS · 05.10.2012, 22:20

3.

Pascal

function prost(a:integer):boolean;
var
  i:integer;
begin
  prost:=true;
  for i:= 2 to round(sqrt(a)) do
  if a mod i = 0 then begin
    prost:=false;
    break;
  end;
end;
var
  a:integer;
begin
  readln(a);
  if prost(a) then writeln(' chislo ',a,' prosto')
  else writeln('chislo ',a,' ne prostoe');
end.

@Beloglazov · 05.10.2012, 23:25 **[ТС]**

Law[L]esS, Спасибо

Комментарий модератора

Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@Beloglazov 0 / 0 / 0 Регистрация: 05.10.2012 Сообщений: 6
		1
	Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым 05.10.2012, 22:06. Показов 5756. Ответов 2 Метки нет (Все метки) Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил темы,теперь плохо понимаю. 3. Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым (простое число – делится нацело только на 1 и на само себя, н-р: 7, 13, 37). 0

Опции темы

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

Решение