Написать программку в паскале вычислить значения функции Y=tg(sinx)+2 при x=0,5;0,7;0,9;;2,1.

program zzz1;

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

begin

x:= 0.5; // задаем изначальное значение для переменной х

while x lt;= 2.1 do // организуем цикл, в котором переберем все числа от 10 до единицы через единицу

begin

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

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

x:= x + 0.2; // уменьшаем переменную х на значение шага

end;

end.