4 года назад

Перевести числа в двоичную систему счисления 1.) 681 2.) 7250 3.) 843624

Знания

Информатика

1 ответ:

Podpol23 [2]4 года назад

0 0

1)681₁₀ = 1010101001₂
2)7250₁₀ = 1110001010010₂
3)843624₁₀ = 11001101111101101000₂

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

Сор информатика 8 класс

Оксана Водка [110]

var

V: Real;

begin

Write ('Введите сумму вклада: ');

Readln (V);

if V = 200000 then

WriteLn ('Процент дохода равен 13.5% в год')

else if V >= 350000 then

WriteLn ('Процент дохода равен 14.2% в год')

else

WriteLn ('Процент дохода в год не определен');

end;

// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.

0 0

4 года назад

Помогите решить задание кто может.

weron46

Функция нахождения индекса наименьшего элемента массива на языке Си:
int getMin(int* X, int size) {int i, m = 0;for(i = 0; i < size; ++i)if(X[i] < X[m]) m = i;return m;}
X - массив, size - размер массива

0 0

4 года назад

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

Составить программу, печатающую все простые числа, не превосходящие данного числа. Спасибо большое.

Fkbcf1953

//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.

0 0

1 год назад

Задача на языке Паскаль найти меньшее из двух чисел

Awsdvc [24]

var a, b: integer;

begin

read(a, b);

writeln(min(a, b));

end.

0 0

4 года назад

Задано число, проверить, если число положительное то его нужно удвоить, если число отрицательное уменьшить в 2 раза, иначе остав

termit2018 [1]

Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
end.

Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.

0 0

4 года назад

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