Напишите программы для решения : 1. дан размер файла в байтах. используя операцию деления нацело, найти количество полных килобайтов 2. найти полное количество минут, часов, дней в заданном количестве секунд 3. дано двузначное число. найти сумму и произведение его цифр 4*. дано трехзначное число. найти сумму и произведение его цифр

Var s,sgn,eps: real;     i: integer; begin   write('точность вычислений: ');   readln(eps);   s: =1;   sgn: =  -1;   i: =3;   repeat     s: =s+sgn/  i;     sgn: =  -  sgn;     i: =i+2;   until 8/i< eps;   writeln('число пи:   ',s*4);   writeln('точное значение пи: ',pi); end.     точность вычислений: 1.0e-6 число пи:   3.14159240358966 точное значение пи: 3.14159265358979

//pascalabc.net 3.1 сборка 1219 begin       var s : = readstring('s =');       var t : = s.matchvalues('[0-9]+').aggregate(0, (s, x)-> s + strtoint(x));       var t1 : = s.matchvalues('[a-z]').count;       println(t, t1); end. или var       s: string;       i, sum, k: integer; begin       readln(s);       for i : = 1 to length(s) do       begin               if s[i] in '0123456789' then sum : = sum + strtoint(s[i])               else if s[i] in 'abcdefghijklmnopqrstuvwxyz' then k : = k + 1;       end;       writeln(sum, ' ', k); end.