Question

Написать программу на языке Паскаль для нахождения площади цилиндра?

Answer 1

uses crt;

var s,r,h:real;

begin

write('высота цилиндра = '); readln(h);

write('радиус цилиндра = '); readln(r);

s:=pi*r*r*h;

writeln('Площадь = ',s);

end.