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

116

219

Посмотреть ответы 2

Ответы на вопрос:

hdhshuuyfftf

Информатика

4,6(49 оценок)

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.