Напишите получившиеся формулы при копировании в следующие ячейки: из ячейки c3 (=$a$3+b3) в ячейки (b6, d1, e2, f5

b6 =$a$3+a6

d1 =$a$3+c1

e2 =$a$3+d2

f5 =$a$3+e5

2, 1: program zadacha1; uses crt; var x,  y: real; begin clrscr; write('enter x: '); readln (x); x: =(x*pi)/180; // в паскале используется измерение в радианах, здесь мы //  переводим из градусов (так как мы задаем значение в градусах) в радианы y: =sqr(cos(x))+sqr(sin(x))*sin(x); writeln ('y=',  y: 0: 4); readkey; end.2program zadacha2; uses crt; var y: real; beginclrscr; y: =sqr(sin(pi))+ pi/2; writeln ('y=',  y: 0: 4); readkey; end.3program zadacha3; uses crt; var  x, y: real; beginclrscr; write ('enter x: '); readln (x); x: =(x*pi)/180; y: =sin(x)/cos(x) + 0.25; writeln ('y=', y: 0: 4); readkey; end.4program zadacha4; uses crt; var x, y,  z: integer; beginclrscr; write ('enter x, z'); readln (x,  z); y: =abs(x)+2*abs(z); writeln ('y=', y: 0: 4); readkey; end.

Var n, k: integer; begin         writeln('введите 2 числа через пробел');         readln(n, k);                 if (strtoint(inttostr(n)[1]) > strtoint(inttostr(k)[1])) then writeln('у первого числа первая цифра больше');         if (strtoint(inttostr(n)[1]) < strtoint(inttostr(k)[1])) then writeln('у воторого числа первая цифра больше');         if (strtoint(inttostr(n)[1]) = strtoint(inttostr(k)[1])) then writeln('у первого числа и воторого числа первые цифры равны'); end.