Надеюсь, что все понятно)
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Ответ:
42
Объяснение:
2A(16)= 2* 16 + 10=42(10)
44(8) = 4*8 + 8 = 40(10)
100111(2) = 32+4+2+1=39(10)