написать программу по информатике объема параллелепипеда
5-9 класс
|
program _1_2;
uses crt;
var
dlina, shirina, vysota:real;
begin
ClrScr;
TextColor(14);
Writeln('Вычисление объёма параллелепипеда.');
Writeln('Введите исходные данные:');
write('Длина (см) -> ');
readln(dlina);
write('Ширина (см) -> ');
readln(shirina);
write('Высота -> ');
readln(vysota);
writeln('Объём: ',(dlina*shirina*vysota):7:2);
Repeat
Until KeyPressed;
end.
program E8;
var a, b, c, v: real;
begin
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v:=a*b*c;
writeln('v=', v:4:2);
readln;
end.
Другие вопросы из категории
дебри,прения,игры,шахматы
ножницы,дрожжи щипцы башмаки
горе нагорный горевать горемыка
если буква «а» встречается чаще, чем буква «в», и напечатать false
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Найти средний рост класса. Написать программу. 10 человек
Самый наименьший рост 162 самый высокий 170
так: Написать любое простое предложение и написать программу по счету букв считая пробелы и цифры.
подоходные 7 процентов.
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)