Нужно сделать программу в Паскале через тип integer. Задача: Составить программу, определяющию
5-9 класс
|
массу кирпича. P=1400 кг/м3, V=25*12*6.5
Формула для нахождения массы: m= V*P
V - объём
m - масса
P - плотность
program noname;
uses crt;
var
V,m,P:integer;
begin
clrscr;
P:=1400;
V:=25*2*39; (чтобы резудьтат был в типе integer представим выражение типа real как )
m:=V*P;
writeln(m);
end.
Другие вопросы из категории
будет равен его объём?
б) файл имеет ёмкость 64 КБ, сколько страниц учебника в него поместилось?
в) какой диск нужен для его записи?
Читайте также
килограммах. Определить сколько целых тонн содержится в данном числе.
Просьба: если вы не умеете составлять программу, то ничего не пишите.
Формула для нахождения массы: m= V*P
V - объём
m - масса
P - плотность
Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.
в квадрат.
P.S. задачу нужно решить через тип integer или real.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.