Написать программу ** паскале s= cos1 + cos2 + cos3 + ... + cos10

Question

Написать программу на паскале

s= cos1 + cos2 + cos3 + ... + cos10

Answer 1

Var sum:real;
begin
for var i:=1 to 10 do sum:=sum+cos(i);
print ('s =', sum);
end.