Uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write(a = );ReadLn(a);
Write(b = );ReadLn(b);
Write(h = );ReadLn(h);
Repeat
WriteLn(F(,a,) = ,2*Sqr(Sin(a))+1);
a:=a+h;
Until a > b;
ReadKey
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.