Nazhosrez
5 год назад
R = 1+sin0,1+sin0,2+sin0,3+.....+sin10
Вычислить на паскале
ОТВЕТЫ
Beilapbya
Aug 8, 2019
Program calc;
var
r, i: real;
begin
r := 1;
i := 0.1;
while i lt;= 10 do
begin
r := r + Sin(i);
i := i + 0.1;
end;
writeln(R=, r);
end.
var
r, i: real;
begin
r := 1;
i := 0.1;
while i lt;= 10 do
begin
r := r + Sin(i);
i := i + 0.1;
end;
writeln(R=, r);
end.
175
Смежные вопросы: