Используя любой цикл вычислите значения квадратов косинусов в интервале от 0 до 7, 770 с шагом 0, 1. если не сложно, то ещё можно блок схему нарисовать

//Pascal:

program cosinusi;
var i: real;
begin

i:= 0;
while(true)
do begin

if(i <= 7,770)
then writeln("Cos(", i, ") = ", sqr(cos(i)):0:2)
else exit;
i:= i + 0,1;

end;

end.

A   B     C     NOT(B)   (A AND NOT B)   NOT(A AND NOT B)   OR C
0    0     0          1                  0                           1                     1
0    0     1          1                  0                           1                     1
0    1     0          0                  0                           1                     1
0    1     1          0                  0                           1                     1
1    0     0          1                  1                           0                     0
1    0     1          1                  1                           0                     1
1    1     0          0                  0                           1                     1
1    1     1          0                  0                           1                     1

1. Дано равнобедренный треугольник АВС один из углов равен 92 °. Найти остальные углов. 2. Найти углы треугольника, если они относятся как 2: 6: 10. 3. Найти сумму внешних углов треугольника, если два внутренних углов равны 35 ° и 76 °. 4. Угол между биссектрисой BL и катетом АС прямоугольного треугольника АВС (угол С = 90 °) равен 55 °. Найти острые кутитрикутника АВС. 5. Один из внутренних углов треугольника на 10 ° больше другого. А внешний угол при третьей вершине равна 120 °. Найти углы треугольника. 6. В треугольнике АВС угол С = 90 °, угол А = 30 °, отрезок ВM - биссектриса угла, найти катет АС.