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

Ответы 1

  • 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) не знаю
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years