Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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