uses crt;
var s,r,h:real;
begin
write('высота цилиндра = '); readln(h);
write('радиус цилиндра = '); readln(r);
s:=pi*r*r*h;
writeln('Площадь = ',s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var s,r,h:real;
begin
write('высота цилиндра = '); readln(h);
write('радиус цилиндра = '); readln(r);
s:=pi*r*r*h;
writeln('Площадь = ',s);
end.