Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kirich8899
09.02.2022 16:34 •
Информатика
Вопрос по программированию pascal 1 составить программу для вычисления площади и периметра трапеции, если стороны основания и высота вводится с клавиатуры.
Показать ответ
Ответ:
dvoeshnik101
07.10.2020 16:36
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Maika01
08.04.2022 10:19
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество...
knowyourmemesboy
27.12.2020 01:16
Вкорзине лежат белые и чёрные шары .среди них-4 белых .сообщение о том , что достали белый шар , несет 5 бита информации.сколько всего шаров в корзине ?...
BooWim
27.12.2020 01:16
Один человек написал: мне 31 год. моей маме 67 лет, а папе 73. вместе нам 213 лет. какую систему счисления использовал человек и сколько ему лет в десятичной системе счисления?...
Animerica20045
13.12.2022 13:41
10 сколько существует различных символьных последовательностей длины 5 в двухбуквенном алфавите {а, в}, которые содержат ровно три буквы а?...
лёха562
13.12.2022 13:41
Какие команды заносят фрагмент текста в буфер? 1.копировать, заменить 2.вставить, вырезать 3.вырезать, копировать. 4.удалить, вставить...
karolinetynfag
19.09.2021 10:28
Соедини стрелками, кто что умеет делать . восприниать информацию, хранить, передавать, обрабатывать! мальчик, компьютер, робот, книга...
klymova2006oz080r
28.03.2021 05:34
1. найдите площадь треугольника авс, если а(1; 1), в(3; 5), с(7; 5). 2. известная малая планета юнона имеет диаметр 190 км. какова длина экватора этой планеты? (ответы: 1.361п, 2.36100п,...
Вишенка011
28.03.2021 05:34
Выберите синонимы к словам родина,бесконечный,охранять и запишите их.составьте предложения с двумя прилагательными-синонимами. отечество,караулить,отчизна,бескрайний,беспредельный,сторожить....
yuliam2015
28.03.2021 05:34
Fill in the gaps.use where,who,which,whose,that,when.put in commas where necessary.(ex.5,p.38) 1.most of the come to this theatre are from england. 2.my brother picture you have...
patik20001
28.03.2021 05:34
При каких значениях параметра a уравнение x^2 + 4x + a = 0 имеет хотя бы один общий корень с уравнением x^2 +2x - 2 = 0?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.