Варлаам
4 год назад
Напиишите,пожалуйста,программу через цикл с параметром.Задание 3 во вложениях
ОТВЕТЫ
Kneller Dagmar
Oct 24, 2020
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
201
Смежные вопросы: