Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
Водка.
Напиток состоящий из воды и максимально очищенного от примесей этилового спирта, который составляет по объёму от 35 % до 70 %. Русская же водка содержит 40 % этилового спирта.
Существует версия, что первую водку изготовил арабский врач Парес в 860 году,которая использовалась в якобы медицинских целях, а вот в Европе первая перегонка этого напитка была сделана итальянским монахом-алхимиком Валентиусом.
Странный алгоритм :)
Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').
Сама программа:
var
x1, x2, y: real;
begin
Println('Введите значения x1, x2, y через пробел и нажмите Enter');
Readln(x1, x2, y);
x1 := y - x1;
x2 := y - x2;
if x2 < 0 then
x2 := -x2;
if x1 < 0 then
x1 := -x1;
if x1 = x2 then
Println('В улетит?')
else if x1 > x2 then
Println('x2 съест')
else Println('x1 съест');
end.