Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ЭЩЩКЕРЕЕЕ
04.05.2023 02:32 •
Информатика
. Ввести массив, состоящий из n элементов целого типа. Определить количество и произведение чисел, значения которых больше значения первого элемента.
Показать ответ
Ответ:
nurkenalmazbek
17.07.2021 11:06
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 оценок)
Ответ:
sulti1675gmailcom
07.02.2023 23:11
Вот на С++:
#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 оценок)
Популярные вопросы: Информатика
Соня121103
13.02.2020 22:44
1. Исправьте программный код. [2]age — 19if age 18:print( You are old enough to vote! )print( Have you registered to vote yet? )...
tural23
25.06.2020 15:45
Десятичный код латинской буквы e в таблице кодировки символов ASCII равен 101. Какая последовательность десятичных кодов будет соответствовать слову help ? Числа в ответе...
nastyamerteshoНастя
09.01.2023 05:59
Дан условный оператор: if(a 15)theny:=aelsey:=a+4. Условием является y:=a+4 a 15 y:=a все ответы верные...
DarKerThanBlaCK34
28.04.2021 18:27
Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе...
zvezdaanara
30.11.2021 14:06
Дано целое число. Если оно является положительным, то прибавить к нему 18; в противном случае не изменять его. Вывести полученное число. program cislo; var a: integer;...
GoldenAbzud
20.12.2021 12:52
Перечислите признаки заражения компьютера вирусом...
aculkow2017
06.11.2022 13:04
4 варіант Завдання на вибір однієї правильної відповіді ( по 0. ів) 1. Загальна формула аренів: а) CnH2n б)CnH2n-2 в)CnH2n+2 г)CnH2n-6 2. Вкажіть ряд, в якому формули...
0208
20.07.2021 10:27
ПАМАГИТИ) 1)Закінчити рівняння можливих реакцій а)Hg^2+ +Cu^0- б)Al2O3+H2SO4-2)Здійснити перетворення a)Mg^2+ -Mg^0 -Mg^2+ -Mg(OH)2 -MgSO4 - Mg(NO3)2 b)Cu^2+ -Cu^0 -Cu(OH)2...
алисатян2
20.07.2021 10:27
Порівняйте та визначте, чим б престонаслідування в Німеччині відрізнявся від порядку спадкоємства королівської влади у Франції і Англії. ( )...
zina111
15.04.2020 07:52
С Домашними заданиям по И К Т....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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);
}