Составить программку вычисления площади круга по данному радиусу. Печатать целую часть

Составить программку вычисления площади круга по данному радиусу. Печатать целую часть результата; дробную часть; остаток от разделения на 3(не пренебрегайте, что mod работает с целым типом); округлите итог.

Задать свой вопрос
1 ответ

var S,R:real;

begin

writeln('Введите значение R: ');

readln(R);

S:=Pi*sqr(R);

writeln('целая часть S = ',int(S));

writeln('дробная часть S = ',frac(S));

writeln('округление S = ',round(S));

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт