Помогите с Информатикой (Программирование на языке PascalABC.net).Нужно создать программу ... Вычислите площадь кольца Введите исходные данные Радиус кольца - больше 3.5 Радиус отверстия (см)- больше 7 Ошибка! Радиус отверсти...
Помогите с Информатикой (Программирование на языке PascalABC.net).Нужно создать программу ...
Вычислите площадь кольца
Введите исходные данные
Радиус кольца ->3.5
Радиус отверстия (см)->7
Ошибка! Радиус отверстия не может быть-Кольца
S=PR^2
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
Writeln('Вычислите площадь кольца');
Writeln('Введите исходные данные');
var r1:=ReadReal('Радиус кольца (см)->');
var r2:=ReadReal('Радиус отверстия (см)->');
if r2>=r1 then
Writeln('Ошибка! Радиус отверстия не может превышать радиус кольца')
else
Writeln('Площадь кольца составляет ',pi*(r1*r1-r2*r2):0:4, ' кв.см')
end.
Не нашли ответ?
Похожие вопросы