program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
program Task;
var x: real;
begin
// Задание a
readln(x);
writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));
// Задание b
readln(x);
writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));
// Задание c
readln(x);
writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))
end.
Тут нечего искать. Из нулей при дизъюнкции ничего не может получиться, кроме нуля. Это как если бы в обычной алгебре складывать нули.
Это любой материальный объект или среда ,используемый для хранения или передачи информации: карта памяти, компакт-диски..и т . д
273(10)<span> = </span>100010001(2) ; 421(8) ; <span>111(16)
</span>
661(10)<span> = 1</span>010010101(2) ; 1<span>225(8) ; 295(16)
</span>
156.25(10)<span> = 10</span>011100.01(2) ; 234.2(8) ; 9<span>C.4(16)
</span>
797.5(10)<span> = </span>1100011101.1(2) ; 1435.4(8) ; 31<span>D.8(16)
</span>53.74(10)<span> примерно = </span>110101.1011111(2) ; 65.57270244(8) ; 35.BD70A4(16)
(в последнем большие остатки...)