Question

пожалуйста переведите на Паскаль задание 3
все 3 таблицы надо

Answer 1

1 задание)
var a, b, h, s: real;
Begin
write('Введите основания трапеции: ');
read(a,b);
writeln('Введите высоту трапеции: ');
read(h);
s  := ((a + b) / 2) * h;
writeln(s);
End.

Answer 2

Фотографируйте пожалуйста чётче, с трудом разбираю, что написано в блок-схемах...

Answer 3

спасибо за 1 задание
просто торопилась что бы не спалили