Вычислить площадь боковой поверхности (s=πrl) и обьем (v=πr2h/3) конуса, если известны высота h, образующая 1 и радиус основания r. за 9 класс. язык программирования.

Program zadacha; const pi=3.14; uses crt; var s,r,l,v,h: real; begin clrscr; write ('vvedite visoty: '); readln (h); write ('vvedite radius: '); readln (r); write ('vvedite obrazujuschujy: '); readln (l); s: =pi*r*l; v: =pi*r*2*h/3; writeln ('ploschad ravna=', s: 3: 2); writeln ('objem raven=', v: 3: 2); readln; end.

Var x,i,j,sum,n: int64; beginread(n); for i: =1 to n do begin    for j: =1 to n do begin      read(x);       if i> j then begin                  inc(sum,x);                   end;       end;       end; if (sum mod 2)=0 then begin                      sum: =sum div 2;                       if (sum mod 2)=0 then writeln('yes')                                        else writeln('no');                       end                  else writeln('no'); end.

Var x,i,j,sum,n: int64; beginread(n); for i: =1 to n do begin    for j: =1 to n do begin      read(x);       if i+j> n+1 then begin                  inc(sum,x);                   end;       end;       end; if (sum mod 2)=0 then begin                      sum: =sum div 2;                       if (sum mod 2)=0 then writeln('yes')                                        else writeln('no');                       end                  else writeln('no'); end.