Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
roma1234563
06.12.2021 03:24 •
Информатика
Напишите программу, которая вычисляет периметр треугольника (P), если длины его сторон равны a,b,c. Сделать несколько запусков программы при a=5, b=10, c=15; при a=5.5, b=6.2, c=7.07 Чтобы было все 4 шага
Показать ответ
Ответ:
НикитаТим
10.03.2022 23:38
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
0,0
(0 оценок)
Ответ:
3ц4у5е67шщзх
08.06.2020 02:39
Вот на С++:
#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
ld x;
cin >> x;
x = ( 8 / sqrt( x ) ) + sqrt(x);
cout << x;
ret(0);
}
0,0
(0 оценок)
Популярные вопросы: Информатика
MaxDeep
09.04.2020 23:53
1.напишите наибольшее число x для которого истино высказывание:(x 44)И НЕ(сумма цифр числа x меньше 8)2.напишите наибольшее число x для которого истинно высказывание:НЕ(x 35)И...
nafani1
08.02.2020 02:19
9. Какое значение появится в ячейке С3 при вводе указанных формул? 10. Какую формулу нужно вписать в ячейку A1 для того, чтобы вычислить среднее арифметическое значений выделенного...
Kotikocerdechko
31.01.2023 20:27
4. Определите, что печатает программа. k = 100for i in range(6): k - = 10print(k)...
СавелийРямов
29.06.2020 15:45
ответы на вопрос: Важно ли правильно организовывать работу за компьютером? (время работы, положение компьютера и человека). Обоснуй свое мнение, ( за ответ и 1 за обоснование)...
Alexy7406
16.01.2021 16:47
1) Какая задача решается по следующей программе? Program p; Var a,b,c integer: begin radln (a,b); if a b then c: = a else c:=b write (c); end А) Нахождение наименьшего из двух...
vladarzm
17.07.2020 04:01
Решите по инфе ето есле что по пайтону...
zavarinaira100
27.10.2022 12:04
Логики, нужно подробное решение...
SofiZ2005
18.08.2022 04:57
Сколько путей от а до ж? решение ...
k1122
14.08.2022 04:38
Вкоробке лежат кубики 8 красных 10 зелёных 12 жёлтых 2 синих вычислите количество информации достоверная жёлтого кубика...
milanademidova1
31.05.2020 17:55
Гидрооксид меди+формалин, что получается при нагревании? cu(oh)2 + =...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
ld x;
cin >> x;
x = ( 8 / sqrt( x ) ) + sqrt(x);
cout << x;
ret(0);
}