4 года назад

Напишите мой возраст(11 лет) в двоичной системе счисления

Знания

Информатика

1 ответ:

Юджин Важный4 года назад

0 0

1011
11/2=5
ост.1
5/2=2
ост1
2/2=1
ост0

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

Напишите программу, которая заполняет массив случайными числами на отрезке [2;10] и считает отдельно количество четных и нечетны

SHUMASHIDAI [6]

Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.

Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>

0 0

5 лет назад

При каких значениях х логическое выражение (х меньше 5) или ((х меньше 30)и( х больше 8)) будет истинным?

Илья322

X ∈ (-<span>∞; 5) U (8; 30)</span>

0 0

3 года назад

С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ

Smile

Var

a1, a2: integer;

begin
a1 := 0;
a2 := 0;

writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);

if (a1*a2 mod 3 = 0) then
begin
    writeln('da');
    end
else
    writeln('net');

end.

0 0

4 года назад

Обмен информацией между компьютерными сетями, в которых действуют разные сетевые протоколы, осуществляется с использованием: шлю

Serg142003

Обмен информацией осуществляется с помощью модемов

0 0

4 года назад

Прочитать ещё 2 ответа

Номер 6. Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов( по программе Паскаль

SOERFT [7]

Var
a, b, c, d: real;

begin
write('Введите значения коэффициентов квадратного уравнения: ');
readln(a, b, c);
if a = 0 then
writeln('Это не квадратное уравнение!')
else begin
D := b * b - 4 * a * c;
if D > 0 then begin
writeln('Уравнение имеет два корня:');
writeln('x1 = ', (-b - sqrt(D)) / (2 * a));
writeln('x2 = ', (-b + sqrt(D)) / (2 * a));
end else if D = 0 then begin
writeln('Ураннение имеет один корень:');
writeln('x = ', -b / (2 * a));
end else
writeln('Уравнение не имеет действительных корней');
end;
end.

0 0

4 года назад