1)вычислить длину окружности и площадь круга одного и того же заданного радиуса r. pascal (желательно с блок-схемой) 2)найти сумму членов арифметической прогрессии, если известны её первый член,знаменатель и число членов прогрессии pascal (желательно с блок-схемой). 3)даны целые числа m, n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны,то заменить числа нулями pascal (желательно с блок-схемой). 4)определить, является ли треугольник со сторонами a,b,c равнобедренным pascal (желательно с блок-схемой). 5)подсчитать количество отрицательных чисел среди чисел a,b,c pascal (желательно с блок-схемой). 6)одноклеточная амёба каждые 3 часа делится на 2 клетки. определить, сколько амёб будет через 3,6,9,12, 24 часа pascal (желательно с блок-схемой). 7) дан массив натуральных чисел. найти сумму элементов, кратных данному k pascal (желательно с блок-схемой)

№1 var r: integer;   begin  writeln('введите радиус');   read(r);   writeln('длина окружности = ',2*pi*r);   writeln('площадь круга = ',pi*sqr(r));   end. №2 var a,d,n: integer;   begin  writeln('введите первый член, знаменатель, число членов');   read(a,d,n);   writeln('cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));   end.  №3 var m,n: integer;   begin  writeln('введите m и n');   read(m,n);   if m=n then begin  m: =0;   n: =0;   end;   if (m> n) then n: =m  else if n> m then m: =n;   end. №4 var a,b,c: integer;   begin  writeln('введите стороны a,b,c');   read(a,b,c);   if (a=b) or (b=c) or (c=a) then writeln('треугольник равнобедренный')  else writeln('треугольник неравнобедренный');   end. №5 var a,b,c: integer;   begin  a: =0;   c: =0;   repeat  writeln('введите число');   read(b);   if b< 0 then a: =a+1;   c: =c+1;   until c=3;   writeln('количество отрицательных = ',a);   end. №6 var a,c: integer;   b: real;   begin  writeln('введите количество часов');   read(a);   c: =a div 3;   b: =power(2, c);   writeln(b);   end. №7 const  n=10;   var a: array [1..10] of integer;   i,k,s: integer;   begin  writeln('введите k');   read(k);   writeln('введите элементы массива');   for i: =1 to n do begin  read(a[i]);   if a[i] mod k =0 then s: =s+a[i];   end;   writeln(s);   end.

Ударение на а разностной