===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
<em>Любой предмет, который ты берешь в руки</em>
Var C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
<span>end.
Сам такое недавно делал, только на КуМИР'е)</span>
Решение в лоб для второй задачи.
<span>n = int(input())
m = int(input())
ticket = 0 <span># счетчик счастливых билетиков
</span>for i in range(int(n), int(m)+1)<span>:
</span> sum_check = 0 <span># проверочная сумма
</span> s = str(i) <span># создаем строку из нового билетика
</span> for j in range(len(s)): <span># проходим по всем числам
</span> if j%2 == 0: <span># если место числа четное
</span> sum_check += int(s[j]) <span># то прибавляем числа на этом месте
</span> else<span>:
</span> sum_check -= int(s[j]) <span># то отнимаем число на этом месте
</span> if sum_check == 0: <span># если контрольная сумма равна нулю, то билетик счастливый
</span> ticket +=<span>1
</span>print(ticket)</span>
Информатика - это наука,которая изучает способы передачи,обмена,получения и хранения информации.
