Написать программу: Вычислить площадь поверхности и объем правильной пирамиды, в основании ко-торой квадрат со стороной а и высота h.
5-9 класс
|
var
v,s,h,a:extended;
begin
read(a,h);
v:=1/3*a^2*h;
s:=(a^2)+(sqrt((a^2/4)+h^2)*a/2*4);
write(s,v);
end.
var
v,s,h,a:extended;
begin
read(a,h);
v:=1/3*a^2*h;
s:=(a^2)+(sqrt((a^2/4)+h^2)*a/2*4);
write(s,v);
end.
Другие вопросы из категории
текст:
BYAJHVFNBRF - K.,BVSQ GHTLVTN DCT[ EXTYBRJD!
Подсказка: ключ связан с расположением знаков на клавиатуре. Попробуйте
расшифровать сообщение.
10. Если вы решили предыдущую задачу, то зашифруйте тем же методом фразу:
ВСК ТАЙНОЕ СТАНОВИТСЯ ЯВНЫМ.
Распишите ,если не трудно(
uses crt;
var i,j,n: integer;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
if (i=1) or (i=n) then write(0) else
if (i<=j) and (i+j<=n+1) then write(1) else
if (i>=j) and (i+j>=n+1) then write(1) else
write(0);
writeln;
end;
readln;
end.
Читайте также
Написал программу следующим образом:
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"