//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.
Переведём число в 2 СС. нацело оно не переведется, поэтому переводим до стольки знаков после запятой, чтобы их общее кол-во вместе с целой частью было =24;
24,29 в 10 СС= 11000,0100101000111101011 в 2 СС
р=5
Мр=1000101
0100|0101|1100|0010|0101|0001|1110|1011
4 5 C 2 5 1 E B
Ответ:45С21ЕВ
В строке
<span>for i in range(10000,99999):
нужно вместо "i" написать "a"
</span><span>for a in range(10000,99999):
На паскале:
var a:longint;
begin
for a:=10000 to 99999 do
if (a mod 133=125) and (a mod 134=111)
then writeln(a);
end.
Результат:
<span>19809
37631
55453
73275
91097</span></span>