На рисунке приведен фрагмент электронной таблицы. В ячейку D3 введена формула =B2-$A$1. Какое число появится в ячейке С4, если скопировать в нее формулу из ячейки D3?

program Numfind;

uses

 System.SysUtils;

var

 a: array [1..10] of Integer;   // 1..10 размерность массива можно изменять, программа будет работать правильно

 i, s: Integer;

begin

 Randomize;

 for i := Low(a) to High(a) do

   a[i] := - 25 + Random (151);

 WriteLn ('Массив чисел:');

 for i := Low(a) to High(a) do

   Write (a [i], ' ');

 s := 0;

 WriteLn;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел больше 20

   if (a [i] > 20) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел больше 20 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел меньше 100

   if (a [i] > 0) and (a [i] < 100) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел меньше 100 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел кратных 3

   if (a [i] > 0) and (a [i] mod 3 = 0) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел кратных 3 = ', s);

 ReadLn

end.

#include <iostream>

#include <vector>

#include <set>

#include <cmath>

using namespace std;

bool check(double a, double b, double c){

   return !(a >= b + c || b >= a + c || c >= b + c);

}

double square(double a, double b, double c){

   double p = (a+b+c)/2;

   return sqrt(p * (p-a) * (p-b) * (p-c));

}

bool is_palind(int k){

   string s = to_string(k);

   for(int i = 0; i < s.length() - i - 1; i++)

       if(s[i] != s[s.length()-i-1])

           return false;

   return true;

}

void solve1(){

   vector<double> lines(4);

   double ans = -1;

   for(auto &i : lines) cin >> i;

   for(int i = 0; i < 4; i++)

       for(int j = i + 1; j < 4; j++)

           for(int k = j + 1; j < 4; j++)

               if(check(lines[i],lines[j],lines[k]))

                   ans = max(ans,square(lines[i],lines[j], lines[k]));

   ans == -1 ? cout << "No solution" : cout << ans;

}

void solve2(){

   set<int> s;

   for(int i = 1000; i < 10000; i++)

       if(is_palind(i))

           s.insert(i);

   int n;

   cin >> n;

   s.find(n) != s.end() ? cout << n : cout << *upper_bound(s.begin(),s.end(),n);

}