feruzbek214
03.03.2020 06:47

Оптическое распознавание текста позволяет

передавать рисунки по электронной почте
применять к тексту электронный перевод, форматирование или преобразование в речь
нет верного ответа
создавать рисунки
поиогите

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yakovenko040320
11.04.2020 12:01
//Microsoft VS 2017 (C++)
//Console application

#include<iostream>

using namespace std;

struct coords {
   double x;
   double y;
};

double findLen ( double x, double y, double x1, double y1) {
             return sqrt(pow(x1 - x, 2) + pow(y1 - y, 2)); //теорема пифагора ( расстояние между двумя точками )
}

double findS( double firstLen, double secLen, double thirdLen) {
        double p = (firstLen + secLen + thirdLen) / 2;
        return sqrt(p * (p - firstLen) * (p - secLen) * (p - thirdLen)); //формула Герона
}

int main() {
        coords A, B, C;
  
        cout << "Input coords for point A : x = ";    cin >> A.x;
        cout << "\t\t\t   y = ";                                   cin >> A.y;
        cout << "Input coords for point B : x = ";    cin >> B.x;
        cout << "\t\t\t   y = ";                                   cin >> B.y;
        cout << "Input coords for point C : x = ";    cin >> C.x;
        cout << "\t\t\t   y = ";                                   cin >> C.y;
        cout << endl << endl; cout << "S for ABC : "<<findS(findLen(A.x,A.y,B.x,B.y), findLen(B.x, B.y, C.x, C.y), findLen(A.x, A.y, C.x, C.y))<<endl;
        system("pause"); //если не компилируется, убери эту строку
        return 0;
}
0,0(0 оценок)
Ответ:
katja060606
31.08.2020 06:35
var  x, n: integer;  n1: real; begin  Writeln('Введите число: ');  Read(x);  if (x > 9) and (x < 100) then  begin    n := (x div 10) + (x mod 10);    Writeln('Сумма цифр равна: ', n);  end;  if (x > 99) and (x < 1000) then  begin    n := (x div 100) * ((x div 10) mod 10) * (x mod 10);    Writeln('Произведение цифр равно: ', n);  end;  if (x > 999) and (x < 10000) then  begin    n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10;    n1 := n / 4;    Writeln('Среднее арифметическое равно: ', n1);  end;  if x > 9999 then  begin    Writeln('Введите 2-х, 3-х или 4-х значное число');  end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота