Вячейку а1 поместили дату 09.02.1949. в ячейку а2 поместили дату 28.03.1949. затем обе ячейки выделили и с маркера заполнения внесли значения в ячейки в диапазоне а3: а35. определите, какая дата будет в ячейке а20. примечание: для ячеек а3: а35 установлен формат даты 14.03.2012. ​

Var a,b,c,anga,angb,angc,cs: real;     s: string; begin   write('длины сторон через пробел:   ');   readln(a,b,c);   if (a+b> c) and(a+c> b) and (c+b> a) then   begin     cs: =(sqr(a)+sqr(b)-sqr(c))/(2*a*b);     angc: =360*arccos(cs)/(2*pi);     writeln('угол с = ',angc: 4: 2);     cs: =(sqr(a)+sqr(c)-sqr(b))/(2*a*c);     angb: =360*arccos(cs)/(2*pi);     writeln('угол b = ',angb: 4: 2);     anga: =180-angb-angc;     writeln('угол a = ',anga: 4: 2);     if (anga< 90) and (angb< 90) and (angc< 90) then         s: ='треугольник остроугольный';     if (anga> 90) or (angb> 90) or (angc> 90) then         s: ='треугольник тупоугольный';     if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or        (sqr(b)+sqr(c)=sqr(a)) then         s: ='треугольник прямоугольный';         writeln(s);       end   else  writeln('треугольник составить нельзя'); end.      

Var s: string;     ch: char;       i,d,c,k: integer; begin   write('слово:   ');   readln(s);   i: =1; d: =0;   c: =0;   k: =0;   repeat      ch: =s[i];     case ch of        'd': d: =d+1;       'c': c: =c+1;       'k': k: =k+1;     end;     i: =i+1;   until i> length(s);   writeln('кол-во d = ',d,'   кол-во c = ',c,'   кол-во k = ',k); end.