Задание:
Заданный радиус основания и высоты цилиндра ю вычислить площадь основания и объем
Решение:
varr,h,s,v: integer; beginreadln (r,h); s: =round (Pi*sqr (r); v: =s*h; writeln ('S=',s); write ('V=',v); end.
Знаете другой ответ?
Заданный радиус основания и высоты цилиндра ю вычислить площадь основания и объем
varr,h,s,v: integer; beginreadln (r,h); s: =round (Pi*sqr (r); v: =s*h; writeln ('S=',s); write ('V=',v); end.
Знаете другой ответ?