Нет возможности проверить, но думаю заработает:
#include <iostream>
#include <cmath>
using namespace std;
int main(){
double n, a, R;
cin >> n >> a >> R;
double b = a * n, r = a / (2 * tg(180 / n));
double S = ((n * b) / 2) * sqrt((R * R) / 4);
cout << S;
}
а)
var
p,d,h:real;
begin
readln(h);
p:=1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r:real;
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k:integer;
m,h,r,S:real;
begin
readln(k);
S:=0;
for i:=1 to k do
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
S:=S+m;
end;
writeln(S);
end.
Это решение приведенногг каадратного уравнения:х^2+px+ q=0
Я в Excel2007 делаю та: создаю таблицу, по которой нужно построить диаграмму, затем нажимаю Вставка - Диаграммы - выбираю тип строю ее и в появляющейся Вкладке Работа с диаграммами делаю все, что надо
Var
a, b: array[1..110000] of integer;
i, n, j, cnt: integer;
begin
Readln(n);
for i := 1 to n do
Read(a[i]);
Write(a[1], ' ');
for i := 2 to n - 1 do
Begin
if a[i] > 0 then Write(a[i], ' ');
i if (a[i] < 0) and (a[i - 1] > 0) and (cnt = 0) then for j := i to n do begin if (j = n) and (a[j] < 0) then
begin
cnt:= 0;
break;
end;
if a[j] > 0 then
break
else
cnt:= cnt + 1;
end;
if cnt = 0 then Write(a[i], ' '); if cnt > 0 then cnt := cnt - 1;
end;
Write(a[n]); end.
