Помогите написать программу!

Срочно нужна программа на завтра,извините что не в той теме:
Над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз

 

3.14zdec!!1
PR-асты атакуют!!111

если ты не понял, в первых 2 строках ты увидишь символы, которые напомнят тебе формулы площади круга и длины окружности

 

S=пr*r
C=2пr

S=C*C/(4п)

вот формула, остальное слабо?

 

Площадь круга=pi*r^2
Длина окружности=2*pi*r
Скачать файл KRUG.exe
Паскаль:

Code:

PROGRAM Ce;
CONST
p1 = 3.14159;
VAR
dlina : Real;
Square, Len : Real;
BEGIN
WriteLn('dlina');

Read (dlina);

Len :=dlina /(2 * p1);

Square := p1 * sqr(Len);

WriteLn('s= ', Square :6:2);
readln;
END.

 

Приват?зачем на паскале константу обьявлять?просто пишешь pi .

 

пинч1111

 

а хз почему. но не хочет так пахать....

смешно