Задание:
Программа вычисления площади кольца, используя подпрограмму вычисления площадикруга
Решение:
Код Pascal1 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.
Знаете другой ответ?