Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
maschakriki
16.02.2022 08:27 •
Информатика
Найти сторону прямоугольника зная его периметр и одну сторону, записать с решением на языки программирования паскаль
Показать ответ
Ответ:
glebsamokrytov777
28.06.2020 12:54
Var p,a,b:real;
begin
writeln('ведите периметр');
readln(p);
writeln('введите 1 сторону');
readln(a);
b:=p/2*a;
writeln('2 сторона равна =', b);
end.
0,0
(0 оценок)
Ответ:
NoName69vv
28.06.2020 12:54
Program asd;
USES crt;
var p,a,b:real;
BEGIN
clrscr;
writeln('Vvedite P: ');
readln(p);
Writeln('Vvedite storony: ');
readln(a);
b:=(p-2*a)/2;
writeln('Storona ravna B: ', abs(b));
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
vladgubin78
10.12.2022 18:13
Даны утверждения: 1)колонтитулы можно вставить в документ только в режиме разметки страниц 2)масштаб по ширине страницы не позволяет видеть на экране всю строку документа...
ksenchernova
10.12.2022 18:13
Pascal! , . простой допустим a делю на b . например a = 20, b = 3. переменные объявляю типа real, так как деление. в результате выводится 6.66666666667. как мне сделать,...
VladaKeks
02.01.2021 14:42
Программа, которая после введенного с клавиатуры числа ( в диапазоне от 1 до 999 ), обозначающее денежную единицу, дописывает слово рубль...
лиана250
08.01.2023 23:45
Укажите число, записанное в естественной форме 1, 257824E+5 0,01357 0,38005611 x 102 Нет числа, записанного в естественной форме...
diiann
29.11.2020 22:11
Очень , завтра уже будет поздно!...
GALAXY356
23.08.2021 05:15
В ответе запишите только число...
winnikrolikov
19.05.2022 14:22
Угол между минутной и часовой стрелками составляет 180 градусов. Сколько времени займёт встреча репортёров...
TkAl06
01.09.2021 05:39
как вы думаете, какие цели были у Пирогова и Аппера в их познавательной деятельности? Совпадают ли эти цели?...
privetjakot
02.06.2020 08:44
Орнок деген созго суйлом тузуу...
kskkksjsjsj
07.09.2020 10:58
При сме шив ании 2 одинаковых стаканов с водой, температуры которых 100 градусов Цельсия и 20 градусов Цельсия соответственно, как ую в итоге темп ературу воды мы получим?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('ведите периметр');
readln(p);
writeln('введите 1 сторону');
readln(a);
b:=p/2*a;
writeln('2 сторона равна =', b);
end.
USES crt;
var p,a,b:real;
BEGIN
clrscr;
writeln('Vvedite P: ');
readln(p);
Writeln('Vvedite storony: ');
readln(a);
b:=(p-2*a)/2;
writeln('Storona ravna B: ', abs(b));
END.