Треба взяти 6 смужок по 5 см і одну по 2!!!
//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.
Тот поступает неправильно. Но это общепринятая версия. Можно писать вирусы и из добрых побуждений. Но чаще всего их пишут из не добрых побуждений.
Например. Самые частопоподающиеся вирусы, это трояны. Это самы распростоненный вирус. Да. Он плохо влияет на компьютер. И его пишут либо от скуки, и желания навредить кому то, либо целенаправленно. Но в любом случае, это плохо.
Хорошие вирусы, как я думаю, то это те вирусы, которые для своего беззаботного существования, удаляют все другие вирусы с компьютера. Да. Если этот вирус не обнаружить, и не удалить. То он нанесет урона во много раз больше.
Но в итоге можно сказать. Что тот кто пишеь вирусы. Поступает плохо, тем, что мешает другим пользователям нормально работать. А в некоторых случаях, и лишает их самого компьютера.
Напиши там что-нибудь например что он там вредит здоровью зрение портит излучение мдёт