как написать программку для паскаля которая считает площадь квадрата??????

Как написать программу для паскаля которая считает площадь квадрата??????

Задать свой вопрос
2 ответа
Var a,S:integer;
Begin
 writeln('введите сторону квадрата');
 readln(a);
 S:=a*a;
writeln('Площадь = ',S);
readln;
end.
Prostoshina Jelina
спасибо)))))
Квадрат вписан в круг. 
Необходимо написать програмку, которая считает площадь окружности, если ввести сторону квадрата 

У меня вышла формула : 

S окр = ((a^2)/2) * (P(число пи)-2) - Площадь круга минус площадь квадрата 

вот код : 

Program Okruzhnost; 
Var 
x,y: real; 
S: real; 

Procedure RectS(a,b: real; Var S:real); 
Begin 
S := (((sqr(x))/2) * (pi-2)); 
end; 

Begin 
WriteLn('Введите сторону квадрата'); 
ReadLn(x,y); 
RectS(x,y,S); 
WriteLn('Площадь окружноси одинакова',S); 

end.
Нелли
мне надобно именнно только для площади квадрата
Денис Бабинкин
Извини, не знаю
Моторич Макс
блин,мне безотлагательно необходимо
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт