Возможно я не так понял, конечно, но эта блок-схема -- бред.
Во первых, i -- целое число, так-что никаких 1.56 мы ей пресвоить не можем.
Во вторых, это просто бесконечное умножение, условия выхода из цикла -- нет.
Вот так! Я тебе помог помоги мне дай мне баллов!
Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
Var y:real; i:integer;
begin
y:=1;
for i:=1 to 52 do
y:=y*(i*i*i)/(i*i+1);
writeln('y = ',y);
end.
Результат:
y = 2.23632650309607E+67
Аудиокарта или звуковая плата.