СРОЧНО! ИНФОРМАТИКА ЦИКЛЫ
Распечатать значения функции y=cos(x) для всех целых x от -5 до 5

var x:integer;beginfor x:=-5 to 5 do writeln('cos(',x,') = ',cos(x):6:4);end.Результат:cos(-5) = 0.2837cos(-4) = -0.6536cos(-3) = -0.9900 cos(-2) = -0.4161cos(-1) = 0.5403cos(0) = 1.0000cos(1) = 0.5403cos(2) = -0.4161cos(3) = -0.9900cos(4) = -0.6536cos(5) = 0.2837