<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Range(1,131,2).ToArray; a.Println
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Подставим в блок-схему вместо х число 5. В блоке условия получим выражение 5>18? Это выражение ложно, поэтому выполнение задачи будет дальше по ветке "нет". В вычислительном блоке х примет такое значение:
х=2*5+1=10+1=11
следующий блок изменяет значение х
х=2*11=22
ответ: переменная х примет значение 22
на Pascal фрагмент этого алгоритма будет выглядеть так:
F X<18 THEN BEGIN
X:=2*X+1;
X:=2*X;
END
ELSE
X:=7-5*X
END;
Тот поступает неправильно. Но это общепринятая версия. Можно писать вирусы и из добрых побуждений. Но чаще всего их пишут из не добрых побуждений.
Например. Самые частопоподающиеся вирусы, это трояны. Это самы распростоненный вирус. Да. Он плохо влияет на компьютер. И его пишут либо от скуки, и желания навредить кому то, либо целенаправленно. Но в любом случае, это плохо.
Хорошие вирусы, как я думаю, то это те вирусы, которые для своего беззаботного существования, удаляют все другие вирусы с компьютера. Да. Если этот вирус не обнаружить, и не удалить. То он нанесет урона во много раз больше.
Но в итоге можно сказать. Что тот кто пишеь вирусы. Поступает плохо, тем, что мешает другим пользователям нормально работать. А в некоторых случаях, и лишает их самого компьютера.