составьте программу вычисления обьема и площади полной поверхности цилиндра с радиусом основания R, высотой H
Answers & Comments
LittleOrange
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.
Answers & Comments
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.