Лб- 72 разработайте алгоритм для вычисления площади поверхности цилиндра: s = 2πr(h + r); где r – радиус основания, h – его высота. вб- 69 разработайте схему алгоритма для нахождения min(a, b, c) целых чисел a, b, c. ца-12 разработайте схему алгоритма для вычисления суммы s целых четных чисел на отрезке [a, b]. текущее значение целого числа имеет имя i.

1)алгоритм решения :   программа должна запрашивать у пользователя следующую информацию: диаметр бака; высота бака; расход краски (площадь поверхности, которую можно покрасить одной банкой краски).в результате программа должна выдавать количество требуемых банок. при получении дробного числа округление должно всегда происходить в большую сторону.площадь крыши бака (круга) вычисляется по формуле  p * d2  /4  (где  p  – число пи,  d  - диаметр).площадь боковой поверхности цилиндра:   p * d * h  (где  h  – высота). программа на языке паскаль:   const pi = 3.14;   var d, h, b: real;       top, wall, q: real;       q_int: integer;   begin write('диаметр: '); readln(d); write('высота: '); readln(h); write('окрашиваемая площадь одной банкой: '); readln(b);         top : = pi * sqr(d) / 4.0;     wall : = pi * d * h;       q : = (top + wall) / b;     q_int : = trunc(q) + 1;   write('количество банок: ', q_int);   readln end.

//pascal abc.net v3.1 сборка 1172 var   ma: array of array of integer;   n, m, i, j, max, maxi, maxj: integer;   f: text;   s, st: string; begin   randomize;   readln(n);   readln(m);   max : = -1;   setlength(ma, n);   for i : = 0 to n - 1 do       setlength(ma[i], m);   writeln('matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do       begin           ma[i, j] : = random(101);           write(ma[i, j]: 4);           if max < ma[i, j] then           begin               max : = ma[i, j];               maxi : = i;               maxj : = j;           end;       end;   end;   assign(f, 'text.txt');   rewrite(f);   for i : = 0 to m - 1 do       write(f, ma[maxi, i]: 4);   writeln(f, ' ');   for i : = 0 to n - 1 do       write(f, ma[i, maxj]: 4);   close(f);   writeln;   writeln('file: ');   assign(f, 'text.txt');   reset(f);   while not eof(f) do   begin;       readln(f, st);       s : = s + st + chr(10) + chr(13);   end;   close(f);   write(s); end. пример ввода: 3 4 пример вывода: matrix:   30  29    3  61   64    4  99  36   45    9  85  19 file:   64    4  99  36     3  99  85

//большую часть времени убил на тесты //pascal abc.net v3.1 сборка 1172 type   ty=record   sub,name,ot,ul,kv,ho: string;   mo,ye: integer;   end; var   ar1,ar2: array of ty;   k,i,n: integer;   s: string; begin   readln(k);   setlength(ar1,k);   n: =0;   for i: =0 to k-1 do   begin     write('введите фамилию рабочего №',i+1,': '); readln(ar1[i].sub);     write('введите имя рабочего: №',i+1,': '); readln(ar1[i].name);     write('введите отчество рабочего: №',i+1,': '); readln(ar1[i].ot);     write('введите улицу проживания рабочего: №',i+1,': '); readln(ar1[i].ul);     write('введите дом проживания рабочего: №',i+1,': '); readln(ar1[i].ho);     write('введите квартиру проживания рабочего: №',i+1,': '); readln(ar1[i].kv);     write('введите месяц поступления на работу рабочего: №',i+1,': '); readln(ar1[i].mo);     write('введите год поступления на работу рабочего: №',i+1,': '); readln(ar1[i].ye);   end;   write('введите искомую улицу: '); readln(s);   writeln('результаты: ');   for i: =0 to k-1 do   begin     if ar1[i].ul=s then       begin         inc(n);         setlength(ar2,n);         ar2[n-1]: =ar1[i];         writeln('рабочий #',i+1,',', ar2[n-1].sub,' ',ar2[n-1].name,' ',ar2[n-1].ot);         writeln('адрес: ',ar2[n-1].ul,' ',ar2[n-1].ho,',',ar2[n-1].kv);         writeln('дата поступления на работу: ',ar2[n-1].mo,',',ar2[n-1].ye);       end;   end; end.         пример ввода: 3 введите фамилию рабочего №1: хацуне введите имя рабочего: №1: мику введите отчество рабочего: №1: ивановна введите улицу проживания рабочего: №1: омотесандо введите дом проживания рабочего: №1: 23 введите квартиру проживания рабочего: №1: 34 введите месяц поступления на работу рабочего: №1: 1 введите год поступления на работу рабочего: №1: 1998 введите фамилию рабочего №2: двачевская введите имя рабочего: №2: алиса введите отчество рабочего: №2: петровна введите улицу проживания рабочего: №2: пушкина введите дом проживания рабочего: №2: 223 введите квартиру проживания рабочего: №2: 34 введите месяц поступления на работу рабочего: №2: 2 введите год поступления на работу рабочего: №2: 1997 введите фамилию рабочего №3: персунов введите имя рабочего: №3: семён введите отчество рабочего: №3: олегович введите улицу проживания рабочего: №3: омотесандо введите дом проживания рабочего: №3: 23 введите квартиру проживания рабочего: №3: 34 введите месяц поступления на работу рабочего: №3: 6 введите год поступления на работу рабочего: №3: 2000 введите искомую улицу: омотесандо пример вывода: результаты: рабочий #1,хацуне мику ивановна адрес: омотесандо 23,34 дата поступления на работу: 1,1998 рабочий #3,персунов семён олегович адрес: омотесандо 23,34 дата поступления на работу: 6,2000