profile
Опубликовано 5 лет назад по предмету Информатика от maks567898

Напишите в паскале программу к задачам 8,9,13 пожалуйста

  1. Ответ
    Ответ дан APALoff
    8)
    Var
      V,S,R,H : Real;
    Begin
      Write('Введите R и H : '); Readln(R,H);
      Writeln('V = ',Pi*sqr(R)*H);
      Writeln('S = ',2*Pi*R*H);
    end.

    9)
    Var
      V,S,R,H,L : Real;
    Begin
      Write('Введите R,H и L : '); Readln(R,H,L);
      Writeln('V = ',Pi*sqr(R)*H/3);
      Writeln('S = ',Pi*R*L);
    end.