Регистрация
никлася
05.07.2020 06:21
Информатика
Есть ответ 👍

Составить программу, которая вычисляет площадь трапеции по запрошенным измерениям и обеспечивает при выводе результата 2 знака после запятой.

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

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

ulyanan260801
ulyanan260801
4,7(30 оценок)

var

  a, b, c: real;

begin

  writeln('программа для вычисления площади трапеции');

  writeln('введите по очереди длины обеих оснований трапеции');

  read(a, b);

  writeln('введите высоту трапеции');

  read(c);

  writeln('площадь трапеции равна: ', (c * (a + b) / 2): 0: 2);  

end.

maxon23
maxon23
4,8(62 оценок)

var

a1,b2,c,d:integer;

begin

write('Введите числа через пробел: ');

read(a1);

for d:=2 to 10 do begin

read(b2);

if b2>a1 then inc(c);

a1:=b2;

end;

if c=9 then writeln('Да') else writeln('Нет');

end.

Популярно: Информатика