Меню сайта

Задача №8
Найти площадь кольца по заданным внешнему и внутреннему радиусам.
Program prim_8-
Var r1,r2,s:real-
Begin
— — Write(‘введите радиус кольца r1 —‘)-
— — Readln(r1)-
— -Write(‘введите радиус кольца r2 — -‘)-
— — Readln(r2)-
— — S:=abs(3.14*sqr(r1)-3.14*sqr(r2))- — —
— — Writeln(‘Площадь -=’,s:5:2)-
— — Readln
End.
Категория: Линейные программы | Дата: 27.11.12

Меню раздела
Блок