Язык программирования Pascal

program zadacha1
var a,b,h,s: real;
begin
write('Введите верхнее основание трапеции ');
readln(a);
write('Введите нижнее основание трапеции ');
readln(b); write('Введите высоту трапеции ');
readln(h);
s:=(a+b)/2*h;
write('Площадь трапеции = ',s);
<span>end.</span>

0 0

4 года назад

Найти периметр и площадь прямоугольного треугольника. ввести длины его катетов a и b. вывести полученные значения

your dark side

202020202020202020202020202020

0 0

4 года назад

Прочитать ещё 2 ответа

Запросить 200 чисел, вычислить произведения чисел, которые не попадают в отрезок от -100 до 100

Денис Бородейко

Program sdasd;

var a, i, otv:integer;

begin
otv:= 1;
for i:= 1 to 200 do
begin
readln(a);
if (a < -100) and (a > 100) do otv:= otv * a;
end;
writeln(otv);
end.

0 0

4 года назад