Предмет: Информатика,
автор: shararam223
R=1+sin0,1+sin0,2+sin0,3+.....+sin10
Вычислить на паскале
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: bazarenkov
Предмет: Физика,
автор: kcistakov100
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: gorynich