Альфред
6 год назад
Помогите с Информатикой (Программирование на языке PascalABC.net).Нужно создать программу ...
Вычислите площадь кольца
Введите исходные данные
Радиус кольца ->3.5
Радиус отверстия (см)->7
Ошибка! Радиус отверстия не может быть-Кольца
S = PR^2
ОТВЕТЫ
Елизарович
Aug 2, 2019
Var r1,r2:real;
begin
write(Радиус кольца -gt; );
readln(r1);
write(Радиус отверстия (см)-gt; );
readln(r2);
if r2gt;=r1
then writeln(Ошибка! Радиус отверстия не может быть gt;= радиуса кольца)
else writeln(S = ,pi*(r1*r1-r2*r2):5:2);
end.
Пример:
Радиус кольца -gt; 7
Радиус отверстия (см)-gt; 3.5
S = 115.45
begin
write(Радиус кольца -gt; );
readln(r1);
write(Радиус отверстия (см)-gt; );
readln(r2);
if r2gt;=r1
then writeln(Ошибка! Радиус отверстия не может быть gt;= радиуса кольца)
else writeln(S = ,pi*(r1*r1-r2*r2):5:2);
end.
Пример:
Радиус кольца -gt; 7
Радиус отверстия (см)-gt; 3.5
S = 115.45
10
Смежные вопросы:
