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>
1. если считать что Робот начинает путь с точки (1,1) закраситьвправозакраситьвправо закраситьвверхзакраситьвправозакраситьвверхзакраситьвправозакраситьвверх закраситьвправозакрасить