В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Польза:
Домашку можно списать)))
1. Можно быстро узнать необходимую информацию;
2. Можно общаться с людьми из других мест;
3. Продвигать бизнес(реклама, видеоконтент и т.д.);
4. Можно заработать много денег, ведя блог или канал
5. Через тот же блог или канал можно творчески самовыражаться.
Вред:
1. Вред компьютера и др. гаджетов для зрения
2. Зависимость от соц. сетей(лайков, комментов,репостов);
3. Трата времени впустую в ленте вк и инст;
4. Через интернет за нами всеми могут тайно следить, что нарушает наши права
5. Распространение контента 18+(жестокость, насилие и тд, вы поняли)
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
Я мог ошибиться в формуле. Она в цикле, перепроверь.
Program gruz;
uses crt;
var x,y,z: integer;
begin
writeln( 'введіть масу кожного груза через пробіл і натисніть enter');
read (x,y);z:=(x+y);
writeln (z);
<span>end.</span>