Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Оу, даже так? Ну про скачивание фильмов я не знаю, а за просмотр рекламы (У Гугла есть такой сервис) вполне можно сумму наскрести, но сейчас все в ВК смотрят онлайн или торрентом качают так что, извини, но... Впрочем, удачи:) Я как-то пытался в детстве обогатиться выгрузкой игр с сайтов х)
Если очень надо, то лучше сделай блог хороший и, когда он раскрутится, добавь туда рекламку:) <em>Или взломай популярный сайт и опять-таки рекламу туда, но я этого не говорил =)</em>
var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
Нужно знать модель ноутбука, что-бы дать ответ. Но по идее по умолчанию на них ничего не должно стоять, в каждой программе свое. Проверьте, не залипла ли у вас кнопка "fn" например