Предмет: Информатика,
автор: polinkabum
Напиишите,пожалуйста,программу через цикл с параметром.Задание 3 во вложениях
Приложения:
Ответы
Автор ответа:
0
var i,n:integer;
s: real;
begin
n:=3; s:=n;
for i:=1 to 8 do s:=s+(n+i)/(i+1);
writeln('сумма: ',s:8:5);
end.
сумма: 14.65794
s: real;
begin
n:=3; s:=n;
for i:=1 to 8 do s:=s+(n+i)/(i+1);
writeln('сумма: ',s:8:5);
end.
сумма: 14.65794
Интересные вопросы
Предмет: Русский язык,
автор: sashatsoy08
Предмет: Химия,
автор: tatyanazueva04
Предмет: Алгебра,
автор: alibek6666k
Предмет: Физика,
автор: твайли45678