Помогите пожалуйста решить.

Question

Помогите пожалуйста решить.

---

Comments

Помогите составить блок схему алгоритма пожалуйста

Answer 1

Var y,s:real;beginwrite('Введите значение y: ');readln(y);s:=sqrt(cos(4*sqr(y))+7.151);writeln('S = ',s);end.

Comments

var y,s:real;*
begin*
write('Введите значение y: ');*
readln(y);*
s:=sqrt(cos(4*sqr(y))+7.151);*
writeln('S = ',s);*
end.*

---

в паскале без * пиши

---

Хорошо, благодарю, а блок смеху поможешь ?