Вопрос школьника по предмету Информатика
составьте программу вычисления обьема и площади полной поверхности цилиндра с радиусом основания R, высотой H
Ответ учителя по предмету Информатика
program xx;
var R,H,S,V : real;
begin
Writeln(‘Введите значение радиуса основания цилиндра: ‘);
Readln(R);
Writeln(‘Введите значение высоты цилиндра: ‘);
Readln(H);
V:=pi*R*R*H;
S:=2*pi*R*(H+R);
Writeln(‘Объём цилиндра: ‘,V);
Writeln(‘Площадь поверхности цилиндра: ‘,S);
end.
Похожие вопросы от пользователей
а)15,2x+1,73y, если х=8 и у=6; х=10 и у=100
б)16,52а+18,1b, если а=85 и b=10
ПОЖАЛУЙСТА ПОЛНОСТЬЮ!!!!!