Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var Y:=x*x*(SeqGen(15,i->1/i,1).Sum);
Writeln(Y)
end.
Пример:
x= 10
331.822899322899
Ответ дал:
0
Если что-то не читается, обновите страницу
Ответ дал:
0
Спасибо!Чужой труд ценю и уважаю - с меня лучший ответ. На моей стене есть ещё одно задание ,если не сложно ,то ...
Ответ дал:
0
К сожалению, времени сейчас нет, посмотрю часа через 4, не раньше. Если будет актуально, отправьте мне через 4 часа в личку ссылку на вопрос.
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
9 лет назад
9 лет назад