Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
Uses crt;
var pr,sum,e,d,s,t,a:integer;
begin
readln(a);
e:=a mod 10;
d:=(a div 10) mod 10;
s:=(a div 100) mod 10;
t:=a div 1000;
pr:=1;
sum:=0;
if e mod 2 =0 then sum:=sum+e else pr:=pr*e;
if d mod 2 =0 then sum:=sum+d else pr:=pr*d;
if s mod 2 =0 then sum:=sum+s else pr:=pr*s;
if t mod 2 =0 then sum:=sum+t else pr:=pr*t;
writeln(sum);
writeln(pr);
end.
Информация-Это сведения о окружающем нас мире