Спасибо, что уделили внимание Владимир. Поправку вашу учла, спасибо, что подсказали. Я пользуюсь Паскалем ABC.
У меня еще один вопрос. Опять задачка дана.
Дано натуральное число N. Определить, является ли оно квадратом простого числа.
Формат входных данных
Во входном файле записано N (N <= 100000).
Формат выходных данных
Вывести в выходной файл Yes, если N - квадрат простого и No в обратном случае.
Примеры:
Вход
2
Выход
No
Вход
9
Выход
Yes
Вот моя программа.
var n:integer;b:real;
f,g:text;
Begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
readln(f,n);
if (n>=0) then
begin
b:=sqrt(n);
if (b-Round(b)=0) then
write(g,'Yes')
else write(g,'No');
end
else
write(g,'No');
close(f);
close(g);
End.
Здесь что-то опять не так. А что не могу понять. Буду признательна.