Ответы
Ответ дал:
0
var
a, b: real;
begin write('a = '); readln(b);
write('b = '); readln(a);
b := a + b;
write('h = '); readln(a);
writeln(b / 2 * a);
end.
a, b: real;
begin write('a = '); readln(b);
write('b = '); readln(a);
b := a + b;
write('h = '); readln(a);
writeln(b / 2 * a);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад