В некотором каталоге хранился файл Солнце.txt имевший полное имя D:\2013\Весна\Солнце.txt В этом каталоге создали подкаталог Тепло и файл Солнце.txt переместили в созданный подкаталог.Укажите полное имя этого файла после перемещения.

#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 5;
double a[n][n];
double m1, m2;

srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < n; j++){
a[i][j]=-20 + (101.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << setprecision (2) << a[i][j];
 }
cout <<endl;
}
m1=a[0][0];
m2=a[0][n-1];
for (int i = 1; i < n; i++){
 if (a[i][i]>m1) m1=a[i][i];
 if (a[i][n-i-1]>m2) m2=a[i][n-i-1];
 }
 cout << "m1=" << m1 << "  m2=" << m2 << endl;
}
  37.11  71.19  25.77  53.53  35.74
  39.90  63.69  11.67  70.38  -4.10
  64.46  52.37  35.03  42.58  69.18
  44.22   8.46  13.23  71.17   3.10
   6.83  65.07  75.24  21.61  37.22
m1=71.17  m2=70.38

1)

var a,b,x,y:longint;

begin

write("Vvedite nachalo i konec otrezka: ");

read(a,b);

write("Vvedite x: ");

read(x);

y:=sqr(x)*x;

if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

readln

end.

2)

var c,i:byte;

begin

for i:=49 to 215 do

if (i mod 4=0) then c:=c+1;

write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i:integer;

p:longint;

for i:=1000 to 9999 do

if (i mod 10=3) then p:=p*i;

write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i:byte;

c:integer;

begin

for i:=221 to 778 do

if ((i mod 10)=(i div 100)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

5)

var i:longint;

c:integer;

begin

for i:=10000 to 99999 do

if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.