М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mirst14
mirst14
08.07.2021 15:56 •  Информатика

Написать программу на с++ даны три стороны одного и три стороны другого треуголь- ника. эти треугольники равновеликие, т.е. имеют равные площади.

👇
Ответ:
aminkaaverynova
aminkaaverynova
08.07.2021
#include <iostream>
#include <cmath>
using namespace std;
double eps = 0.000001;
double sq(double a, double b, double c)
{
   double p = (a + b + c) / 2;
   return sqrt(p * (p - a) * (p - b) * (p - c));
}
int main() 
{
   double a1, b1, c1, a2, b2, c2;
   cin >> a1 >> b1 >> c1 >> a2 >> b2 >> c2;
   if (sq(a1, b1, c1) >= sq(a2, b2, c2) - eps && sq(a1, b1, c1) <= sq(a2, b2, c2) + eps)
      cout << "YES";
   else
      cout << "NO";
}
4,8(31 оценок)
Открыть все ответы
Ответ:
егор1465
егор1465
08.07.2021

Ключ внешний

Foreign key, кратко FK. Обеспечивает однозначную логическую связь, между таблицами одной БД.

Например, есть две таблицы А и В. В таблице А (обувь), есть первичный ключ: размер, в таблице В (цвет) должна быть колонка с названием размер. В этой таблице «размер» это и будет внешний ключ для логической связи таблиц В и А.

Ключ первичный

набор определенных признаков, уникальных для каждой записи. Обозначается первичный ключ, как primary key.

PK не позволяет создавать одинаковых записей (строк) в таблице;PK обеспечивают логическую связь между таблицами одной базы данных (для реляционных БД).
4,6(45 оценок)
Ответ:

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

 

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

 

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

 

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

 

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

 

По всем вопросам пиши в ЛС

4,5(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ