Ввести значения: а - длины стороны квадрата и r - радиуса окружности. Программа должна рассчитать площадь фигур. Если площадь квадрата меньше либо равна площади круга, то - рассчитать периметр квадрата и вывести на печать. Если...
Ввести значения: а - длины стороны квадрата и 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.
Не нашли ответ?
Похожие вопросы