Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»
716 - 512 = 204 1
204- 128=76 1
76 - 64 =12 1 от 12 нельзя отнять следующую степень двойки - 32, поэтому в нашем двоичном числе на месте этого разряда будет 0, и 16 от 12 отнять нельзя, значит снова 0.
12- 8 =4 1,
4 - 4 = 0 1 , а дальше все оставшиеся разряды нули. В разряде двоек - 0, в разряде единиц тоже 0. Итого. 111001100 наше двоичное число.
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу