17 Ноя

составить программу нахождения плошади круга по его радиус который вводят с клавиатуры в

составить программу нахождения плошади круга по его радиус который вводят с клавиатуры в

  • var
    s, r : real;
    begin
    read (r);
    s := pi * sqr (r);
    writeln (s);
    end.

  • var

    r:real

    begin

    write(R = ); readln(r);

    writeln(S = , r * r * pi);

    end.

  • Добавить комментарий

    Ваш e-mail не будет опубликован. Обязательные поля помечены *