Агриппа 28 октября 2019 в 05:12

Помогите решить задачи в паскале.
1)Заданы радиус R круга и сторона квадрата А. Определить какая фигура имеет большую площадь.
2)Найти сумму корней квадратного уравнения. Если эта сумма положительна и кратна трем, то увеличить коэффициенты а и b в 0,5 раза. Иначе проверить кратна ли данная сумма произведению коэффициентов этого уравнения. Если корней нет, то вывести соответствующее сообщение. С блок схемамами.

1) 
var
   Sk, Ss, R, A : integer;

begin
   read(R, A);
   Sk :=  pi*R*R;
   Ss := A*A;
   If Sk gt; Ss then write (Площадь круга больше)
     else
       If Ss gt; Sk then write (Площадь квадрата больше)
         else write (Площади равны)
end.

2) не знаю

Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте