Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Const
m = 6;
n = 4;
var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n] of longint;
p: longint;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(100) - 50;
write(a[i, j]:4)
end;
writeln
end;
writeln('Результирующий массив');
for j := 1 to n do
begin
p := 1;
for i := 1 to m do p := p * a[i, j];
b[j] := p;
write(b[j], ' ')
end;
end.
Тестовый пример:
Исходный массив
-22 -23 -14 16
-17 42 -13 19
-35 9 -47 -7
23 -9 19 25
3 -7 -31 43
15 42 40 0
Результирующий массив
-13548150 -23004324 201532240 0
Последовательно делим целую часть десятичного числа на основание системы, в которую переводим, пока десятичное число не станет равно нулю.
Полученные при делении остатки являются цифрами искомого числа. Число в новой системе записывают, начиная с последнего остатка
Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится:
1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно.
со сложением также:
или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения:
1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.
1.2000 раздели на 128
2,6 кб В 1 кб 1200 б 1200*6 раздели на 64
3,ННе понял
4,Не поняль
И то легче