Помогите,надо написать программу вычисляющаю обьем куба,длинну всех его ребер,площадь поверхности
5-9 класс
|
Program kub;
var a,rez:real;
begin
readln(a);
rez:=a*a*a; writeln('Объем = ',rez);
rez:=(a *sqrt(rez))*12; writeln('Длина всех ребер = ',rez);
rez:=6*sqr(a); writeln('Площадь поверхности = ',rez);
end.
Другие вопросы из категории
Нам задали записать примеры моделей:
1. Человека
2. Автомобиля
3. планеты Земля
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
надо написать программу "Вывести на экран кубы и квадраты чисел от -10 до 10"
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)