Используя любой цикл вычислите значения квадратов косинусов в интервале от 0 до 7,770 с...

Question

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

Answer 1

//Pascal:

program cosinusi;
var i: real;
begin

i:= 0;
while(true)
do begin

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

end;

end.