Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MissDiana1111
06.02.2022 16:41 •
Информатика
Даны координаты двух противоположных вершин прямоугольника(х1,,у2). стороны прямоугольника параллельны осям координат.найти периметр и площадь
Показать ответ
Ответ:
виталий146
02.10.2020 11:24
Var x1,x2,y1,y2,p,s:integer;
beginwrite('Введите x1 и y1');Readln(x1 , y1);write('Введите x2 и y2');Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write('Введите x1 и y1',x1:4 , y1:4);write(' ');writeln('Введите x2 и y2',x2:4 , y2:4);writeln('Периметр = ',p);writeln('Площадь = ',s);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
veronichkasape
02.05.2021 22:17
Чем характеризуются каналы передачи информации? •отправителем информации •получателем информации •пропускной возможностями операционной системы...
PoJalyusta
09.04.2021 04:19
Реализуйте программно на каком-либо языке программирования последовательность действий устройства, производящего получение неравномерного двоичного кода из заданного первичного...
Sorokun
26.05.2023 14:01
Найдите значение переменной A после выполнения фрагмента программы: a:= 6; b:=98 mod a ; a:=b div 2 + 28....
АлёнаКож
08.03.2021 01:51
Обчислити значення функції Як зробити це в python?(інформатика)...
Саша23458
24.06.2022 04:32
Написать программу в среде программирования Python. . (◍•ᴗ•◍)❤...
Виктория1950
12.06.2021 17:47
Укажите верные формулы. 1)v=I:t 2)I=v:t 3)I=v⋅t 4)t=v:I...
BYHOY
06.05.2020 15:40
Переделать код из Паскаля в C++ var A, i: integer; begin writeln( Введите цифру (0 - 9): ); repeat write( A = ); readln(A) until A in [0..9]; writeln; for i := 100 to 999 do begin...
MuertoLegend
11.01.2021 00:41
Выполни задание в тетради: стр.19 упр. 2 (спиши, найди и подчеркни синонимы одной линией)...
egoremykina
02.01.2022 15:57
Скорость передачи данных по некоторому каналу связи равна 128 Кбит /с. Передача файла по этому каналу связи заняла 2 мин. Определите размер файла в мегабайтах, ответ округлите...
ЕхоBts97
12.06.2022 06:51
1. Kas ir tiešsaistes servisi un kādu funkcionalitāti tie piedāvā mākoņpakalpojumi, dokumentu koplietošana un glabāšana, sadarbības iespējas?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
beginwrite('Введите x1 и y1');Readln(x1 , y1);write('Введите x2 и y2');Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write('Введите x1 и y1',x1:4 , y1:4);write(' ');writeln('Введите x2 и y2',x2:4 , y2:4);writeln('Периметр = ',p);writeln('Площадь = ',s);end.