В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
Код картинкой и результат его выполнения во вложениях.
Ответ:
реализовал на паскале
Объяснение:
program While22;
var i, num:integer;
isSimple : boolean;
Begin
isSimple :=true;
readln(num);
if (num mod 2 = 0) and (num<>2)then isSimple := false;
i:=3;
while i*i<=num do
begin
if (num mod i=0)then begin isSimple := false;break; end;
i:=i+2
end;
writeln(isSimple)
end.