Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
помогиииитееее2233
15.03.2020 17:10 •
Информатика
Даны координаты двух противоположных вершин прямоугольника: (x1,,y2).стороны прямоугольника параллельны осям координат.найти периметр и площадь прямоугольника.
Показать ответ
Ответ:
оуовлвдсл
04.10.2020 20:39
Program pryamougolnik;
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Роли5
06.03.2021 08:07
Информатика. Кто сможет...
73021081
27.11.2021 21:10
Расшифровать криптограмму: ндеазлм уурроьп югвлббь млуэраю ыаюнёрт шскглте ькоепир...
Sonya1233210
23.09.2020 13:23
1.сколько раз будет выполнен oператop write? var i,j,s: intrger; begin s: =0; for i: =15 to 18 do begin s: s+1; write(i: 4,s: 5); end; end. 2.чему будет равно s после выполнения...
MaksN1203
15.04.2022 07:47
Ввести с клавиатуры массив из 5 элементов,найти среднее арифметическое всех элементов массива?...
catarshaninp08iio
02.02.2020 01:48
Закодировать поздравление с 8 марта...
Tima764
02.02.2020 01:48
Загадка кто в игре нам указания выполняет в разных видах он бывает его называют...
Noiceee
13.07.2022 14:57
Дана последовательность чисел содержится 1-но отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа решите...
Mila672
13.07.2022 14:57
Напишите программу на языке паскаль через цикл repeat, которая вычисляет сумму: а)первых n натуральных чисел б)квадратов первых n натуральных чисел в)всех чётных чисел в диапазоне...
лиод1
04.06.2023 08:22
Даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то заменить числа нулями в паскале...
Диана135793
07.06.2022 00:59
Значение двух массивов а {1..100} и b {1..100} с следующего фрагмента программы: for n: =1 to 100 do a {n} : = (n-80)*(n-80); for n: =1 to 100 do b {101-n} : =a {n}; какой элемент...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.