PROGRAM KRUG;
VAR R,S:REAL;
BEGIN
R:=1;
S:3.14*R*R;
WRITE LN(S)
END.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PROGRAM KRUG;
VAR R,S:REAL;
BEGIN
R:=1;
S:3.14*R*R;
WRITE LN(S)
END.
var r,s:real;
begin
Writeln('Введите радиус круга:');
read(r);
s:=3.14*r*r;
Writeln('Площадь круга:',s);
end.
или же так