4 года назад

Найдите все десятичные числа не превосходящие 25 запись которых в двоичной системе счисления оканчивается на 101.

1 ответ:

0 0

101(2) = 5(10)
1101(2) = 8+4+1 = 13(10)
10101(2) = 16+4+1 = 21(10)
Следующее число 11101(2) = 16+8+4+1 = 29(10) уже больше 25.
Ответ: 5, 13, 21

Читайте также

Требуется переправить на другой берег трех рыцарей и их оруженосцев. Имеется лодка, которая может вместить только двух человек.

ВалентинаЕ [17]

Рыцари: А, Б, В. Их оруженосцы соответственно: а, б, в.

Переправляются оруженосцы а, б.
Оруженосец a возвращается.
Переправляются оруженосцы а, в.
Оруженосец a возвращается.
Переправляются рыцари Б, В.
Рыцарь Б и оруженосец б возвращаются.
Переправляются рыцари А, Б.
Оруженосец в возвращается.
Переправляются оруженосцы а, б.
Рыцарь В возвращается.
Переправляются рыцарь В с оруженосцем в.

Всё.

0 0

3 года назад

ОЧЕНЬ СРОЧНО ОТВЕТЬТЕ НА ВОПРОСЫ ПО ИНФОРМАТИКЕЕЩЕ ВОПРОСЫ В КОММЕНТАРИЯХ ПОД ПЕРВЫМ ОТВЕТОМ

Ludosha [572]

(А1:А3) это сумма с 1 по 3,т.е.
6+8+10=24
Ответ:24

0 0

4 года назад

Напишите программу для вычесления скорости , числа любые

ДмитрийПе [7]

Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln ('Введите расстояние в км');
readln (a);
writeln ('Введите скорость в часах');
readln (b);
c:=a/b;
writeln ('Скорость = ',c);
readln;
end.

0 0

4 года назад

С ПОМОЩЬЮ ПАСКАЛЯ Дана информация о температуре воздуха за январь. Написать программу, которая:а)Определит сколько раз температ

Кикимер

Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>

0 0

4 года назад

Дана последовательность действительных чисел а1,а2,...,аn. Выяснить, быдет ли она возрастающей.

Тайгоня [171]

//Pascal ABC.NET v3.1 сборка 1219

Const
n=5;

Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.

0 0

4 года назад