Помогите с Информатикой (Программирование ** языке PascalABC.net).Нужно создать программу...

Question

Помогите с Информатикой (Программирование на языке PascalABC.net).Нужно создать программу ...
Вычислите площадь кольца
Введите исходные данные
Радиус кольца ->3.5
Радиус отверстия (см)->7
Ошибка! Радиус отверстия не может быть-Кольца
S=PR^2

Answer 1

Var r1,r2:real;
begin
write('Радиус кольца -> ');
readln(r1);
write('Радиус отверстия (см)-> ');
readln(r2);
if r2>=r1 
 then writeln('Ошибка! Радиус отверстия не может быть >= радиуса кольца')
 else writeln('S = ',pi*(r1*r1-r2*r2):5:2);
end.

Пример:
Радиус кольца -> 7
Радиус отверстия (см)-> 3.5
S = 115.45

Answer 2

Сейчас напишу пару сек 

Comments

да

---

Rbym ccskre !

---

Кинь ссылку *

---

нельзя

---

В ЛС !

---

кинь ты меня свою

---

на меня только подписатся можно я неувижу твою подписку

---

скажи Имя и Фамилию и что за фотка я найду

---

Федончук Даниил - я такой один !

---

все