Ответы 2

  • var

    r:real;

    begin

    read(r);

    r:=3.14*r*r;

    writeln('S=',r);

    end.

    • Автор:

      sassyceme
    • 6 лет назад
    • 0
  • program krug;

    var

    r,otvet:real;

    begin

    readln(r);

    otvet:=3.14*sqr(r);

    writeln('S=',otvet);

    end.

    • Автор:

      Álvaro83
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years