Составить алгоритм и программу печати значений функции y:=cos^2x для x=10,9,8,7, ...,1.

program zz1;

var x, y:real; / / задаем переменные не целого типа

begin

x:=10;

while x > = 1 do / / организуем цикл, в котором переберем все числа от десяти до единицы через единицу

begin

y:=sqr (cos (2 * x)); / / вычисляем значение по заданной формуле

writeln (' для ', x, ' вычисленное значение y = ', y:5:2); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

x:=x - 1; / / уменьшаем х на единицу

end;

end.