Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Ввести значения: а - длины стороны квадрата и r - радиуса окружности. Программа должна рассчитать площадь фигур. Если площадь квадрата меньше либо равна площади круга, то - рассчитать периметр квадрата и вывести на печать. Если площадь круга меньше либо равна площади квадрата, то - рассчитать длину окружности и вывести полученное значение на печать.9 класс икт паскаль помогиитеее плиииз

Ответ оставил Гость

Var a,r,sa,sr:real;
begin
      write(Введите число a=);
      readln(a);
      write(Введите число r=);
      readln(r);
      sa:=sqr(a);
      sr:=pi*sqr(r);
      writeln(Площадь квадрата = , sa, , Площадь круга = ,sr);
      if sa<=sr then writeln(Площадь квадрата меньше или равна площади круга. Периметр квадрата = ,a*4);
      if sr<=sa then writeln(Площадь круга меньше или равна площади квадрата. Длинна окружности = ,2*pi*r);
end.