Предмет: Информатика,
автор: dememchukova
Как составить программу вычесления площади полной поверхности цилиндра
Ответы
Автор ответа:
0
var r,h,s: real;
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
writeln('Полная площадь цилиндра равна ',s);
end.
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
writeln('Полная площадь цилиндра равна ',s);
end.
Автор ответа:
0
s:=4*pi*r*(h+r); измени
Автор ответа:
0
на s:=2*pi*r*(h+r);
Автор ответа:
0
Хорошо,спасибо.
Интересные вопросы
Предмет: Математика,
автор: asiaasylhan346
Предмет: Другие предметы,
автор: Aiperi2608
Предмет: Қазақ тiлi,
автор: Lelelkaleleka123
Предмет: Математика,
автор: bakuta10b
Предмет: Алгебра,
автор: Лекпар