Пишу на языке PASCAL.
№1
program name1; // Название программы name1
var a: integer; // Объявляем переменные
begin
WriteLn('Введите число: ');
ReadLn(a);
if a>0 then writeln('Число положительное');
if a=0 then writeln('Число равно 0')
else writeln('Число отрицательное');
end.
//PascalABC.NET версия 3.2, сборка 1389
//Right – перемещает Робота вправо;
//Left – перемещает Робота влево;
//Up – перемещает Робота вверх;
//Down – перемещает Робота вниз;
//Paint – закрашивает текущую ячейку;
//FreeFromLeft – возвращает True если слева от Робота свободно;
//FreeFromRight – возвращает True если справа от Робота свободно;
//FreeFromUp – возвращает True если сверху от Робота свободно;
//FreeFromDown – возвращает True если снизу от Робота свободно;
uses Robot;
const
h = 10;
w = 15;
begin
Field(w, h);
for var i := 1 to w div 2 do Left;
for var i := 1 to h div 2 do Up;
Stop;
for var i := 1 to h do
begin
if(i mod 2 = 0) then
repeat
if FreeFromLeft then Left;
Paint;
if FreeFromLeft then Left;
Paint;
if FreeFromLeft then Left;
until not FreeFromLeft
else
repeat
if FreeFromRight then Right;
Paint;
if FreeFromRight then Right;
if FreeFromRight then Right;
until not FreeFromRight;
if FreeFromDown then Down;
end;
end.
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Ответ:
4₁₀ = 1*2² = 100₂
8₁₀ = 1*2³ = 1000₂
16₁₀ = 1*2⁴ = 10000₂
32₁₀ = 1*2⁵ = 100000₂
64₁₀ = 1*2⁶ = 1000000₂
5₁₀ = 1*2⁰ + 1*2² = 101₂
10₁₀ = 1*2¹ + 1*2³ = 1010₂
20₁₀ = 1*2² + 1*2⁴ = 10100₂
40₁₀ = 1*2³ + 1*2⁵ = 101000₂
Объяснение:
4₁₀ = 0*2⁰ + 0*2¹ + 1*2² = 100₂
8₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 1000₂
16₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ = 10000₂
32₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100000₂
64₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000000₂
5₁₀ = 1*2⁰ + 0*2¹ + 1*2² = 101₂
10₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1010₂
20₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ = 10100₂
40₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ = 101000₂