Const n=15;
var a,b,c:array[0..n] of integer;
s_a,s_b:string;
i:integer;
Begin
readln(s_a);
readln(s_b);
while length(s_a)<n do s_a:='0'+s_a;
while length(s_b)<n do s_b:='0'+s_b;
for i := n downto 1 do begin
a[i]:=strtoint(s_a[i]);
b[i]:=strtoint(s_b[i]);
c[i]:=c[i]+a[i] + b[i];
c[i-1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
writeln;
for i:= 0 to n do write(a[i]);
writeln;
for i:= 0 to n do write(b[i]);
writeln;
for i:= 0 to n do write(c[i]);
End.
Как-то глуповато получилось, но, как говорится, каков вопрос - таков ответ:
=IF(OR(ROW(A1)=1;AND(ROW(A1)=2;<span>COLUMN(A1)=2));1;0)
</span>
В Excel это будет так:
=ЕСЛИ(ИЛИ(СТРОКА(A1)=1;И(СТРОКА(A1)=2;СТОЛБЕЦ(A1)=2));1;0)
<span> Животным свойственна память: они помнят дорогу к месту своего обитания, места добывания пищи; домашние животные отличают знакомых людей от незнакомых. Многие животные обладают обостренным обонянием, несущим им ценную информацию.</span>
Баг (от англ. bug - жук).
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>
