Задание № 1 по дисциплине «Информатика»

Бетонная плита длиной L м, шириной B м имеет массу M т. Определить плотность бетона.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var l,b,h,m,p,v:real;
begin
writeln ('vvedite dliny plity');
readln (l);
writeln ('vvedite shiriny');
readln (b);
writeln ('vvedite visaty');
readln (h);
writeln ('vvedite massy');
readln (m);
v:=l*b*h; //площадь
p:=m/v; // плотность
writeln (p:2:2);
readln;
end.

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: