В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
shedis2004
shedis2004
28.11.2021 04:42 •  Информатика

ответить на во информатика
Во Известный поэт, бывший в ссылке в Воронеже с 1935 по 1938 год.

2. Появление и развитие звука в кино (даты основных вех)

3. Кто и когда изобрел технологию CD-ROM?

4. Адрес электронной почты Белого дома.

5. Как зовут жену основателя крупнейшей социальной сети в мире?

6. Чем отличается мобильный телефон от сотового (или мобильная связь от сотовой)?

7. Назовите имя «папы» WorldWideWeb .

8. Чем занимается «папа» WorldWideWeb .сейчас?

9. В честь какого события была воздвигнута Триумфальная ярка в Москве и когда?

10. Классификация и виды грузовых автомобилей.

11. Что такое «Союз Когда он существовал? Какие цели он ставил и кто входил в его состав?

12. Известный русский полководец Михаил Илларионович Кутузов потерял правый глаз в одном из сражений. Когда и где это случилось?

13. Суворов Александр Васильевич в своей книге «Наука побеждать» изложил три воинских искусства : “Первое-..,второе-.., третье-..”

14. Название какого растения (видовое название) означает по-итальянски «красивая женщина»?

15. Как называлась первая русская газета?

16. Старинная легенда гласит, что крокодил, съевший свою жертву или готовящийся ее съесть, проливает при этом слезы, оплакивая ее. Отсюда пошло выражение «крокодиловы слезы», т.е. неискреннее, лицемерное сожаление. Существуют ли на самом деле крокодильи слезы?

17. В Новой Зеландии это слово используется для названия народности, плода и птицы, изображенной на гербе Новой Зеландии. Что это за слово?

18. С чьим именем связывают открытие Гренландии? Дата открытия.

19. “Планета есть колыбель разума, но нельзя вечно жить в колыбели…Человечество не останется вечно на земле , но, в погоне за светом и сначала робко проникнет за пределы атмосферы, а затем завоюет себе все околосолнечное Кому принадлежат эти слова?

20. Русские композиторы, входящие в « Могучую кучку»

21. По русским поверьям, через неделю после Троицы наступало это время. Какое?

22. Личность девушки, послужившей моделью для этой картины, точно не установлена: то ли Анна, то ли Шарлотта Бальтауф. Но достоверно известно, что сама эта картина, написанная в 1745 году, стала одной из самых известных пастелей. Что это за картина? Кто ее автор?

23. Банкноты какой страны считаются самыми древними бумажными деньгами?

24. Какой канал Санкт-Петербурга отходит от реки Екатерингофки, охватывает с севера парк Екатерингоф и у Сутугина моста соединяется с рекой Таракановкой?

25. Найти информацию о тарифах сотового оператора Мегафон для Воронежа и Воронежской области.

Показать ответ
Ответ:
ismail00
ismail00
21.12.2021 15:30
4)
var
    a, b: integer;

function max(a, b: integer): integer;
begin
    if a > b then max := a else max := b;
end;

begin
    readln(a, b);
    writeln(max(a, 2 * b) * max(2 * a - b, b));
end.

5)
const
    n = 10;

var
    a: array[1..n] of integer;
    i, s: integer;

begin
    for i := 1 to n do
    begin
        readln(a[i]);
        if i mod 2 = 0 then s := s + a[i];
    end;
    writeln(s);
end.

6)
const
    handsfree = false;

var
    a: array[1..100, 1..100] of real;
    product: real;
    i, j, m, n: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;
    
    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
    
    product := 1;
    for i := 1 to m do
        for j := 1 to n do
            if a[i, j] > 0 then
                product := product * a[i, j];
    writeln('product = ', product);
end.
0,0(0 оценок)
Ответ:
Pomogashka2002
Pomogashka2002
11.05.2023 06:12
//Dev C++ 4.9.9.2

#include <iostream>
#include <cmath>
using namespace std;

int main(){
 int x1,x2,x3,y1,y2,y3=0;
 double s,p,a,b,c,pp=0;
 cin>>x1>>y1>>x2>>y2>>x3>>y3;
 a=sqrt(pow(float(x2-x1),2)+pow(float(y2-y1),2));
 b=sqrt(pow(float(x3-x2),2)+pow(float(y3-y2),2));
 c=sqrt(pow(float(x3-x1),2)+pow(float(y3-y1),2));
 p=a+b+c;
 pp=p/2;
 s=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
 cout<<"S="<<s<<endl;
 cout<<"P="<<p;
 cin.get();
 cin.get();
 return 0;
}

Пример ввода:
1
1
1
5
6
7
Пример вывода:
S=10
P=17.1954
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота