Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Дан радиус сферы.найти её объём и площадь поверхности.

81K
26 марта 2012 года
Victoria1106
1 / / 26.03.2012
Дан радиус сферы.Найти ее объём и площадь поверхности
311
26 марта 2012 года
plastictown
309 / / 08.01.2006
Код:
program fuck;

uses wincrt;

const

pi=3.141592654;

var

r:real;
s:real;
v:real;

begin

clrscr;

writeln('Input r');
readln(r);

s:=4*pi*r*r;

v:=(4/3)*pi*r*r*r;

writeln('s=',s);
writeln('v=',v);

readkey;

end.
Если среда TP 7.0, заменить wincrt на crt;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог