Question

Помогите СРОЧНО НАДО!!!!

Answer 1

Ответ:

Задание 1

var a,h,s: integer;

begin

writeln('Чтобы найти площадь параллелограмма, нужно найти произведение стороны  параллелограмма на высоту , проведенную к этой стороне.');

writeln('Введите сторону(a): ');

readln(a);

writeln('Введите высоту(h) ');

readln(h);

s:=a * h;

writeln('Площадь параллелограмма = ',s);

end.

Задание 2

var a,h,b,s: real;

begin

writeln('Объем любого прямоугольного пространства длиной "A", шириной "B" и высотой "Н" вычисляется по формуле: Объем = A × B × H.');

writeln('Введите длину (a): ');

readln(a);

writeln('Введите ширину (b) ');

readln(b);

writeln('Введите высоту(h) ');

readln(h);

s:=a*b*h;

writeln('Объем комнаты = ',s);

end.

Задание 3

var p,f,s: real;

begin

writeln('Давление (P) – отношение силы (F), которая действует на поверхность перпендикулярно, к ее площади (S).');

writeln('Введите силу (F): ');

readln(f);

writeln('Введити площадь(S) ');

readln(s);

p:=f/s;

writeln('Объем комнаты = ',p);

end.