Есть ответ 👍

Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму

204
215
Посмотреть ответы 2

Ответы на вопрос:


Program vozvedenie;
uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
 Scirkle:=pi*sqr(r);
end;
begin
 clrscr;
 writeln('r1,r2');
 readln(r1,r2);
 writeln('Площадь кольца равна**',Scirkle(r1)-Scirkle(r2));
 readln;
end.

Силовое

Объяснение:

Популярно: Другие предметы