R=1+sin0,1+sin0,2+sin0,3+.....+sin10 Вычислить на паскале
R=1+sin0,1+sin0,2+sin0,3+.....+sin10
Вычислить на паскале
Гость
Ответ(ы) на вопрос:
Гость Program calc;
var
r, i: real;
begin
r := 1;
i := 0.1;
while i <= 10 do
begin
r := r + Sin(i);
i := i + 0.1;
end;
writeln('R=', r);
end.
Не нашли ответ?
Похожие вопросы