Решить в паскале. 1)заданы радиус r круга и сторона квадрата а. определить какая фигура имеет большую площадь. 2)найти сумму корней квадратного уравнения. если эта сумма положительна и кратна трем, то увеличить коэффициенты а и b в 0,5 раза. иначе проверить кратна ли данная сумма произведению коэффициентов этого уравнения. если корней нет, то вывести соответствующее сообщение. с блок схемамами.

kamilla126 kamilla126    1   04.08.2019 04:30    1

Ответы
anton2015b anton2015b  03.10.2020 21:22
1) 
var
   Sk, Ss, R, A : integer;

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

2) не знаю
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика