На интервале от 100 до 150 найти количество цифр, сумма которых равна 5.

program raf105;

var a,b,c,counter,i: integer;

begin

for i: =100 to 150 do

begin

  a: = i div 100;

  b: = (i div 10) mod 10;

  c: = i mod 10;

  if a+b+c=5

    then counter: = counter + 1;

end;

writeln('количество чисел от 100 до 150, сумма цифр которых равна пяти: ',counter);

end.

язык pascalabc

Import randomdwa = [i for i in range(0,15+1)]dwa_new = []for q in dwa: .append(bin(q))print('числа в 10 системі: \n',dwa)print('\tперевод чисел в 2 систему: ')print('числа в 2 системі: \n',dwa_new)gotov = []mas = [random.choice(dwa_new) for i in range(10)]mas_sredne = []for zz in mas: mas_sredne.append(int(zz,2))m = 0for s in mas_sredne: m += s b = m/len(mas_sredne)mas.sort()mas.reverse()print("відсортовані числа за спаданням: \n",mas)print("середне число: ",bin(int(пример:   числа в 10 системі:   [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]  перевод чисел в 2 систему: числа в 2 системі:   ['0b0', '0b1', '0b10', '0b11', '0b100', '0b101', '0b110', '0b111', '0b1000', '0b1001', '0b1010', '0b1011', '0b1100', '0b1101', '0b1110', '0b1111']відсортовані числа за спаданням:   ['0b111', '0b1101', '0b1101', '0b1100', '0b11', '0b1011', '0b1011', '0b1010', '0b1001', '0b10']середне число: 0b1001

1. 11101001₂  +  1011001₂  =    322₁₀     11101001₂  +        1011001₂    101000010₂ 101000010₂ = 1*2⁸ + 0*2⁷ + 1*2⁶ + 0*2⁵ + 0*2⁴ + 0*2³ + 0*2² + 1*2¹ + 0*2⁰ = 256 + 64 + 2 = 322₁₀ проверка: 11101001₂ = 1*2⁷ + 1*2⁶ + 1*2⁵ + 0*2⁴ + 1*2³ + 0*2² + 0*2¹ + 1*2⁰ = 128 + 64 + 32 + 8 + 1 = 233₁₀ 1011001₂  = 1*2⁶ + 0*2⁵ + 1*2⁴ + 1*2³ + 0*2² + 0*2¹ + 1*2⁰ = 64 + 16 + 8 + 1 = 89₁₀ 233 + 89 = 322 2. 24₁₀ = 30₈24₁₀ = 30ₓ 24₁₀ = 3*x¹ + 0*x⁰ 24₁₀ = 3x x = 8