Var
aa[1..1000, 1..1000] : array of integer;
i, j, m, n : integer;
r : boolean;
begin
{считываем массив}
readln(m, n);
for i := 1 to m do
for j := 1 to n do
read(aa[i, j]);
{ r равен true до первого элемента, равного 0}
r := true;
i := 0;
while i <= m and r = true do
begin
i := i + 1;
j := 0;
while j <= n and r = true do
begin
j := j + 1;
if aa[i, j] = 0 then
r := false;
end;
end;
writeln(i, ' ', j);
end.
var A,B,C,X:boolean;
begin
writeln('A':6,'B':6,'C':6,'X':6);
for A:= false to true do begin
for B:= false to true do begin
for C:= false to true do begin
X:= (A or not(B))or not(not(A) or C);
writeln(A:6,B:6,C:6,X:6);end;end;end;<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1
Ответ:
Объяснение:
1а-4
1б=1
1в=6
2а= название = "комсомольская правда" и срок = 12 или тип = журнал
2б=название = журнал и срок = 6 или название = известия и тип = газета
3=6 1 5 3 2 4
4=название = "комсомольская правда" или "Огонек"