Написать программу, которая проверяет – являются ли значения, полученные по формуле sqr(x)+x+49 при аргументе 20>=x>=0 , простыми числами. В данном случае – целое число — Pascal(Паскаль)

var
x,i,s,f:integer;
begin
for x:=0 to 20 do
begin
 s:=sqr(x)+x+49;
 for i:=2 to s-1 do
if s mod i=0 then f:=1;
end;
if f=0 then writeln('yes')else writeln('no');
readln;
end.

Похожие записи/страницы:

Leave a Comment

+ 71 = 77