Даны радиус круга и сторона квадрата. У какой фигуры больше площадь?

Даны радиус круга и сторона квадрата. У какой фигуры больше площадь? Напишите программку на языке Паскаль

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

program zz1;

var
a, r, s1,s2: real;

begin
writeln(Введите r); // вводим радиус круга
read(r);
writeln(Введите a); // вводим сторону квадрата
read(a);
s1:=pi*r*r; // обретаем площадь круга
s2:=a*a; // обретаем площадь квадрата
if s1 = s2 then write(площади одинаковы ) //проверяем, если площади одинаковы, то выводим ответ
else
if s1 gt; s2 then write(площадь круга больше ) else write(площадь квадрата больше ); //проверяем, если 1-ая площадь больше 2-ой, то выводим первый ответ, иначе 2-ой
end.

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


Последние вопросы

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

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

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

Войти на сайт