Паскаль. Написать программу при помощи процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности.
Входящие данные: R (радиус);
Выходящие данные: S (площадь), L (длина окружности)
Program primer;const Pi=3.14;
procedure SandL(R: integer; var S,L: real);
begin
S:=Pi*Power(R,2); L:=2*R*Pi; end;
var R: integer;
S,L: real;
Begin
readln(R);
SandL(r,s,l);
writeln(Trunc(s), ,Trunc(l));
end.
ABC Pascal
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
