Оу, даже так? Ну про скачивание фильмов я не знаю, а за просмотр рекламы (У Гугла есть такой сервис) вполне можно сумму наскрести, но сейчас все в ВК смотрят онлайн или торрентом качают так что, извини, но... Впрочем, удачи:) Я как-то пытался в детстве обогатиться выгрузкой игр с сайтов х)
Если очень надо, то лучше сделай блог хороший и, когда он раскрутится, добавь туда рекламку:) <em>Или взломай популярный сайт и опять-таки рекламу туда, но я этого не говорил =)</em>
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Ну типа это WWW это просто обзначает что ты на находишь в глобальной паутине
Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
<span>end.
так проще</span>