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 (желательно с блок-схемой) — Правильный ответ на вопрос найдете ниже

Ответ: Задание №1var r:integer; begin writeln(‘Введите радиус’); read(r); writeln(‘Длина окружности = ‘,2*pi*r); writeln(‘Площадь круга = ‘,pi*sqr(r)); end.Задание №2var a,d,n:integer; begin writeln(‘Введите первый член, знаменатель, число членов’); read(a,d,n); writeln(‘Cумма членов арифметической прогресси = ‘, 0.5*n*(2*a+(n-1)*d)); end. Задание №3var 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.Задание №4var 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.Задание №5var 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.Задание №6var a,c:integer; b:real; begin writeln(‘Введите количество часов’); read(a); c:=a div 3; b:=power(2, c); writeln(b); end.Задание №7const 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.