Adriebor
5 год назад
Вычислить сумму указанную на фото
ОТВЕТЫ
Адриан
Oct 24, 2020
//Pascal
var X, S, h: real;
begin
write('X = ');
readln(X);
while h < 20 do
begin
h := h + 2;
S := S + X / h;
end;
writeln('S = ', S);
end.
var X, S, h: real;
begin
write('X = ');
readln(X);
while h < 20 do
begin
h := h + 2;
S := S + X / h;
end;
writeln('S = ', S);
end.
688
Смежные вопросы:
