Const N = 10;
var im, i, ie: Integer;
A: array [0..N] of Integer;
begin for i := 0 to N do
A[i] := random(99);
im := A[0];
for i := 0 to N do
if (A[i] > im) then
begin
im := A[i];
ie := i;
end;
writeln(ie);
<span>end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then ie := i;
writeln(ie);
<span>end.
================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then
begin
ie := i;
break;
end;
writeln(ie);
<span>end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят</span></span></span>
По данной схеме составим логическую функцию:
F= A * B + not A + C, упрощаем
F= not A + B +C,
строим таблицу истинности:
Таблица во вложении:
1. var i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if(n mod i = 0) then
writeln(i);
end;
<span>end.
2.
var shet1,count,sum:integer;
begin
shet1:=2;
sum:=2;
count:=1;
while sum<=119 do
begin
count:=count+1;
shet1:=shet1+1;
sum:=sum+shet1;
end;
write('count = ',count);
<span>end.
3.
var a:integer;
begin
read(a);
while(a <> 0)
do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
</span></span>
1. чтобы перевести тз любой позиционной СС в десятичную:
1) запишите число
2) сверху, над каждой цифрой напишите число от 0 и до скольки получится, считая справа налево от запятой
3) так же степени раставьте после запятой, только числа используйте отрицательные(-1, -2...) и пишите их слева направо
4) запишите число в развернутом виде с учетом записанных степеней: пишем цифру и умножаем на основание СС в степени,записанной над данной цифрой
5) считаем
5 4 3 2 1 0 -1-2
1 1 0 1 1 0 , 0 1 = 1*2^5 + 1*2^4 + 0*2^3 + 1*2^2 + 1*2^1 + 0*2^0 + 0*2^-1 + 1*2^-2 = 32+16+0+4+2+0+0+0.25 = 54.25
что бы из двоичной системы перевести сразу в восьмиричную, необходимо разбить число на тройки и в каждой тройке посчитать полученное число(как в десятичной системе):
110 110 , 01 = 66,25
чтобы перевести сразу в шестнидцатеричную, необходимо проделать тоже самое, только разбить на 4:
0011 0110 , 01 = 36,25
2. Что бы перевести число из десятичной СС в любую другую, надо данное число разделить на основение требуемой системы нацело. Если остается остаток, то его записать. и продолжать так делить до тех пор, пока часное не перестанет делитсчя нацело. после чего записываем последнее часное и все остатки в обратном направлении.
139|<u> 2
</u>
<u>138 </u> 69|<u> 2</u>
1 <u>68</u> 34|<u> 2</u>
1 <u>34</u> 17|<u> 2</u>
0 <u>16</u> 8|<u> 2</u>
0 <u>8</u> 4|<u> 2</u>
0 <u>4 </u> 2|<u> 2</u>
0 <u>2</u> 1
0
139 = 10000011