Эта задача на нахождение суммы отриц. элементов
Const
<span>N=7; К=5;</span>
Var
<span>a: array [1..N, 1..К] of integer;
</span> i, j, y : integer;
Begin
for i:=1 to N do
for j:=1 to K do readln(a[i,j]);
<span>у:=0;</span>
for i:=1 to N do
for j:=1 to K do
If (a[i,j]<0) then
y:=y+ a[i,j];
writeln (y);
<span>End.</span>
Чтобы сравнить эти два числа, нужно их рпедставить в одной системе счисления. Удобней всего сделать это в двоичной.
Переведем DD в двоичную систему.
пишем раскладку степеней двойки:
1
2
4
8
(16 не берем, т.к. в 16-ричной с.с. нет числа 16)
берем первую цифру числа DD - D. По сути, D-это 13 число в 16-ричной с.с. (более подробно 16-ричная с.с - это 1,2,3,4,5,6,7,8,9,A(10),B(11),C(12),D(13),E(14),F(15));
смотрим, как число 13 можно разложить по числам 1,2,4,8(см раскладку степеней двойки). 8 влезает в 13 один раз, ставим 1. Остаток 13-8=5. 4 влезает 5 один раз, ставим 1. остаток 5-4=1. 2 не влезает в 1, ставим 0. И на 1 ставим 1. Т.е. первая четверка двочного числа равна 1101.
Теперь разбираем вторую цифру 16-ричного числа D. Выше было рассказано, как это сделать. Итого, получаем, что DD в 16с.с = 11011101 в двоичной.
Теперь пеерводим 337 из восьмеричной в двоичную
пишем раскладку степеней двойка
1
2
4
(8 не берем, т.к в восьмеричной с.с нет числа 8)ж
берем первую цифру числа 337 - это 3. Раскладываем по степеням двойки и получаем, что первая двоичная тройка этого числа равна 011 (4 в 3 не влезает, 2 влезает один раз, остаток-один). со второй тройкой аналогично - получаем 011. Теперь 7: 111 (4 влезает 1 раз, остаток-3, двойка в 3 влезает 1 раз, остаток-1, и последняя единица)
Итого получаем 337 в восьмеричной с.с. = 011011111, но 0 в начале числа не пишут, поэтому получаем 11011111
выписываем полученные двоичные числа
DD= 11011101
337=11011111
по условию нам нужно найти число, которое стоит между этими. Для себя я делаю так, все 1 заменяю на 9, а 0 - на 8, мне так проще. получается, что
DD=99899989
337=99899999
очевидно, что между ними стоит число 99899990 или, переводя обратно, 11011110 - вот и ответ
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
Println(ReadInteger('v=')<=ReadInteger('r=')-100?'Пройдет':'Не пройдет');
end.
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
