Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ulianakosovska0
20.01.2023 05:03 •
Информатика
Треугольник авс написать программу для вычесления р и s
Показать ответ
Ответ:
AnastasiaPanda
13.04.2020 18:19
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
StilesStilinsky
12.03.2022 06:25
Опишіть алгоритм розміщення мультимедійних матеріалів у YouTube. Порядок дій нумеруємо та вписуємо кожну дію з нового рядка....
ekaterinabraun5
07.01.2021 20:47
Как называется этот элемент интерфеса? а)радиокнопка,б)переключатель,в) список,г)всплывающая подсказка...
Макс00796
06.02.2022 20:24
Язык программирования Pascal Дан массив из 10 целых чисел от 2 до 50. Найти максимальный элемент массива....
Uedo
28.08.2022 06:10
6. Определить значения переменных C и D после выполнения фрагмента на учебном алгоритмическом языке. C:=11 A:=24 B:=14 D:=2*A-3 пока D =B повторять нц C:=C-1 D:=D-B...
umnik250
16.11.2021 01:37
Задание 1. Практическое задание. Начертите на бланке структуру базы данных Картинная галерея , содержащую сведения о полотнах выдающихся художников. Укажите необходимые...
nastyakostikov1
14.07.2022 22:23
Посылка 1: Все воробьи - птицы. Посылка 2: Все птицы - животные. * Посылка 1: Все прямоугольники-параллелограммы. Посылка 2: Квадрат - это прямоугольник. * Посылка 1: Все...
Kik1924
22.05.2022 19:18
Запишите на языке Бейсик программу вычисления выражения нигде нет решения...
klanfaktorp082lg
07.03.2021 00:57
Очень надо написать формулу, используя логическую функцию ЕСЛИ...
EEEboyyyyy
28.09.2020 19:47
2 раз выкладываю Язык программирования Pascal Дан массив из 10 целых чисел от 2 до 50. Найти максимальный элемент массива....
CwetochekAnfisa
26.11.2020 00:26
Тест по информатике Вариант 2 1. Модуль, который служит для преобразования напряжения аккумуляторной батареи в несколько видов напряжений для питания отдельных узлов и...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.