001100 - 6 цифр
N=2^i
N=2^6
N=64
64 цвета в палитре
1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.
Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
randomize;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.
<h2>Задание 1</h2>
Основание - это индекс числа. Основание числа может записываться как N(x), N_x, Nₓ, где N - число, x - основание.
<h3>Ответ</h3>
8
<h2>Задание 2</h2>
1032₈ = 1 · 8³ + 0 · 8² + 3 · 8¹ + 2 · 8⁰ = 512 + 0 + 24 + 2 = 538₁₀
<h3>Ответ</h3>
538
<h2>Задание 3</h2>
Стоит вспомнить, что шестнадцатеричная система счисления состоит из чисел от 0 до 9, а также из букв A, B, C, D, E и F, которые равны 10, 11, 12, 13, 14 и 15 соответственно. Поэтому:
7BC₁₆ = 7 · 16² + 11 · 16¹ + 12 · 16⁰ = 1792 + 176 + 12 = 1980₁₀
<h3>Ответ</h3>
1980
