программа вычисления площади кольца, используя подпрограмму вычисления площади круга
Код Pascal
1 const pi=3.14;
2 var n,m: real;
3 function S(r: real): real;
4begin
5 S:=pi*r*r;
6 end;
7begin
8write(R1=); readln(n); n:=S(n);
9write(R2=); readln(m); m:=S(m);
10writeln(S=,abs(n-m));
11end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
