Предмет: Информатика,
автор: dememchukova
программа вычисляющая объём и площадь полной поверхности цилиндра
Ответы
Автор ответа:
0
var r,h,s,v: real;
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
v:=pi*r*r*h;
writeln('Полная площадь цилиндра равна ',s);
writeln('Объем цилиндра равен ',v);
end.
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
v:=pi*r*r*h;
writeln('Полная площадь цилиндра равна ',s);
writeln('Объем цилиндра равен ',v);
end.
Автор ответа:
0
" s:=4*pi*r*(h+r);"
Ты откуда четвёрку взял?
Ты откуда четвёрку взял?
Автор ответа:
0
s:=2*pi*r*(h+r);
Похожие вопросы
Предмет: Математика,
автор: dsukhova2020
Предмет: Химия,
автор: jennikim888
Предмет: Английский язык,
автор: lagoda586
Предмет: Математика,
автор: Адиба2000