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

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

Задать свой вопрос
1 ответ
1 задание)
var a, b, h, s: real;
Begin
write('Введите основания трапеции: ');
read(a,b);
writeln('Введите вышину трапеции: ');
read(h);
s  := ((a + b) / 2) * h;
writeln(s);
End.
Леонид Гек
Фотографируйте пожалуйста чётче, с трудом разбираю, что написано в блок-схемах...
Anton Kolyhan
спасибо за 1 задание просто торопилась что бы не спалили
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт