Программа на Pascal

[voice 21]

Программа на Pascal

Помогите составить программу для проверки, можно ли заданное натуральное число N представить в виде квадрата простого числа. (Обязательно с функцией и модулем.)

 

[voice 21]

Помогите составить программу для проверки, можно ли заданное натуральное число N представить в виде квадрата простого числа. (Обязательно с функцией и модулем.)

код:

Program DOLG;

var

a,b:real;

begin

write('Введите число ');
readln(a);
b:=sqrt(a);

if frac(b)=0 then writeln('Можно',a,' представить в виде квадрата простого числа')
else writeln('Нельзя',a,' представить в виде квадрата простого числа');

end.

 

[Vladimir_S]

Так, ну, во-первых, не нужно лезть в чужие темы. Создавайте свои под свои задачи.
Во-вторых, Вы проверили только то, что вводимое число есть квадрат ЦЕЛОГО числа, а в задаче требуется ещё и убедиться в том, что это целое число — простое.
Вот, как вариант решения:

Program DOLG;

Var
 a:LongInt;
 b:real;

Function Test(J:LongInt):Boolean;
Var
 m:LongInt;
 b:Boolean;
begin
 m:=(J div 2)+1;
 b:=true;
 Repeat
  Dec(m);
  If (J mod m)=0 then b:=false;
 Until (b=false) or (m=2);
 Test:=b;
end;

Begin
 write('Enter the number ');
 readln(a);
 b:=sqrt(1.0*a);
 if (frac(b)=0) and (Test(Round(b))) then
  writeln(a,' is a square of prime ',Round(b))
 else
  writeln(a,' is not a square of prime');
 Readln
end.

На английский не обращайте внимания, просто мне так проще. Поправьте, если надо.
Функция Test проверяет, является ли число простым.
Программа написана на Free Pascal. Если у Вас Pascal ABC, то замените LongInt на Integer.