Написать программу в ЯП Паскаль. По данным сторонам найти площадь прямоугольника.

263

468

Посмотреть ответы 2

Ответы на вопрос:

В1и2к3т4о5р6и7я11

Информатика

4,6(2 оценок)

program se;

var a,b,s : integer;

begin

writeln('Введите чему равны стороны треугольника: ');

readln(a,b);

s := a * b;

writeln('Площадь треугольника равна ', s)

end.

Dark119277

Информатика

4,7(34 оценок)

var a, b, h, s : real; begin writeln('введите основания трапеции: '); write('основание a = '); readln(a); write('основание b = '); readln(b); writeln(#10#13 + 'введите высоту трапеции: '); write('высота h = '); readln(h); s : = (a + b) * h / 2;

writeln(#10#13 + 's трапеции = ', s: 0: 1); end.