Дан фрагмент ЭТ в режиме отображения формул. Знак ₽
$ означает абсолютный адрес. Чему будут равны значения клеток В3 и В4(после выхода из режима отображения формул), если втних было скопировано содержимое клетки В2?

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
 for j:=0 to 9 do
  begin
  s:=s+i*100+j*10+i;
  k:=k+1;
  end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
 s:=0; k:=0;
 for i:=1 to 9 do
  for j:=0 to 9 do
   begin
   s:=s+i*100+j*10+i;
   k:=k+1;
   end;
   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
  StaticText1.Caption := s;
end;

#include < bits/stdc++.h>   using namespace std;   int main(){        int n, m, k, c = 0, c1 = 0;         cin > > n > > m > > k;         c = n + m;         if (c % k == 0)        {                c1 = c / k;         }        else        {                c1 = (c / k) + 1;         }        if (2 * c1 < = m)        {                cout < < c1;         }        else        {                cout < < 0;         }         //cout < < "hello world! " < < endl;         return 0; }//sadasdadasdasdasd