Question

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

Answer 1

program Ls112kfdkfjfj;
const pi=3.14;
var n,m: real;
function S(r: real): real;
begin     
S:=pi*r*r;
end;
begin     
write('R1=');
readln(n);
n:=S(n);     
write('R2=');
readln(m);
m:=S(m);     
writeln('S=',abs(n-m));
end.

6e85749f5ab3c29954fcdaacc87a5ee5.pas

Answer 2

Это не будут работать в ТурбоПаскаль, как надо.

Answer 3

Нужны подключение Crt и задержка до нажатия клавиши перед завершением работы.

Answer 4

Требуется использовать процедуру