Есть 130 гирек массами 1 г, 2 г, …, 130 г. заяц - id13509830 от MEGRAD 02.05.2022 15:25

Question

Информатика: Есть 130 гирек массами 1 г, 2 г, …, 130 г. заяц положил на одну чашу весов две гирьки. волк хотел уравновесить их двумя другими гирьками на второй чаше, но не смог. сколько в сумме могли весить две гирьки, взятые зайцем? перечислите все варианты ответа по возрастанию через пробел (например, 3 5 12).

MEGRAD · Accepted Answer

var x,xn,xk,dx,p,s,e:real; k:integer; begin write('xn xk dx e: '); readln(xn,xk,dx,e); x:=xn; repeat s:=1; k:=1; p:=1; repeat p:=-p*x*x/k/(k+1); s:=s+p; k:=k+2 until abs(p) < e; writeln(x:10:5,s:10:5,k:5,cos(x):10:5); x:=x+dx until x > xk; readln end.

Для контроля добавила столбик с вычисленным напрямую значением косинуса. Заголовки, шапки и завитушки вокруг таблицы пусть пишет тот, кому не лень. Контрольный пример ввода можно задать, например, как 0.1 1.0 0.1 0.0001

Ответы на вопрос:

Популярно: Информатика