Если площадь в ячейке А1, то вот так:
=ЕСЛИ (А1<100;500;ЕСЛИ (А1<200;700;800))*B2
<span>Можно еще с помощью ВПР, но тогда нужно делать дополнительную таблицу
</span>
=B2*(500+200*(B2>100)+100*(B2>=200))
<span>Это если площадь стоит в ячейке B2.
</span>
Var
s: real;
n: integer;
begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.
<em><u>Тестовое решение:</u></em>
5
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
<em>1)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em>begin</em>
<em> read (s);</em>
<em> for i:=1 to length(s) do</em>
<em> begin</em>
<em> if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))</em>
<em> else write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>2)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> if s[1]=' ' then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=1;</em>
<em> end;</em>
<em> for i:=2 to length(s) do</em>
<em> if (s[i]=' ') and (s[i-1]<>' ') then</em>
<em> begin</em>
<em> j:=j+1;</em>
<em> p[j]:=i;</em>
<em> end;</em>
<em> for i:=1 to j do</em>
<em> begin</em>
<em> a:=p[i];</em>
<em> p[i]:=0;</em>
<em> while s[a]=' ' do</em>
<em> begin</em>
<em> inc (p[i]);</em>
<em> a:=a+1;</em>
<em> end;</em>
<em> end;</em>
<em> b:=p[1];</em>
<em> for i:=1 to j do</em>
<em> if p[i]>b then b:=p[i];</em>
<em> write (b);</em>
<span><em>end.</em>
<em>3)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> write (s[i]);</em>
<em> while s[i]<>':' do</em>
<em> begin</em>
<em> inc (i);</em>
<em> write (s[i]);</em>
<em> end;</em>
<span><em>end.</em>
<em>4)</em>
<em>var a, b, c, i, n, j :integer;</em>
<em> s :string;</em>
<em> p :array[1..10000] of integer;</em>
<em>begin</em>
<em> read (s);</em>
<em> i:=1;</em>
<em> while s[i]<>':' do</em>
<em> inc (i);</em>
<em> i:=i+1;</em>
<em> while (s[i]<>':') and (i<=length(s)) do</em>
<em> begin</em>
<em> write (s[i]);</em>
<em> inc (i);</em>
<em> end;</em>
<span><em>end.</em></span></span></span></span>