Var a,b,h,x,f:real; begin Write('Введите a,b,h: '); Read(a,b,h); x:=a; while x<=b do begin f:=sqrt(x)*sqr(cos(x)); Writeln(x:5:3,f:15:8); x:=x+h end end.Тестовое решение Введите a,b,h: 0 3 0.25 0.000 0.00000000 0.250 0.46939564 0.500 0.54457910 0.750 0.46364281 1.000 0.29192658 1.250 0.11116410 1.500 0.00612832 1.750 0.04202995 2.000 0.24491094 2.250 0.59190315 2.500 1.01482406 2.750 1.41675413 3.000 1.69755726 var a,b,h,x,f:real; begin Write('Введите a,b,h: '); Read(a,b,h); x:=a; repeat f:=sqrt(x)*sqr(cos(x)); Writeln(x:5:3,f:15:8); x:=x+h until x>b end.Тестовое решение Введите a,b,h: 0 3 0.25 0.000 0.00000000 0.250 0.46939564 0.500 0.54457910 0.750 0.46364281 1.000 0.29192658 1.250 0.11116410 1.500 0.00612832 1.750 0.04202995 2.000 0.24491094 2.250 0.59190315 2.500 1.01482406 2.750 1.41675413 3.000 1.69755726