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

Ввести величины трех отрезков и определить, существует ли треугольник с такими сторонами. если существует, то определить его тип:  равносторонний;  равнобедренный;  разносторонний.c#
! решить! ​

👇
Открыть все ответы
Ответ:
molotok1515
molotok1515
17.07.2021

Биология:

True) У верблюдов, несмотря на горбы, позвоночник такой же прямой, как у лошадей.

False) Люди пошли от птиц

География:

True) Москва столица России

False) Москва столица Австарлии

Информатика:

True) Компьютер — устройство выполнять заданную, чётко определённую, изменяемую последовательность операций.

False) Компьютер лучше работает под водой

История:

True) Влади́мир Святосла́вич — князь новгородский (969—978), князь киевский (978—1015), при котором произошло Крещение Руси.

False) Наполеон сжег Америку

Математика:

True) 2+2=4

False) 2+2=5

Литература:

True) Александр Сергеевич Пушкин — русский поэт, драматург и прозаик

False) Война и мир - произведение братьев Гримм

4,5(45 оценок)
Ответ:
mironenkok22
mironenkok22
17.07.2021
1)
var
    a1, a2, b1, b2, c, i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
    begin
        s[i] := random(100);
        if s[i] < 50 then
        begin
            a1 := a1 + s[i];
            a2 := a2 + 1;
        end;
        if s[i] >= 50 then
        begin
            b1 := b1 + s[i];
            b2 := b2 + 1;
        end;
        
    end;
    writeln(a1 / a2:0:3, ' ', b1 / b2:0:3);
end.

2)
var
    i, n: integer;
    f: boolean;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(5);
    
    f := false;
    for i := 1 to n - 1 do
        f := f or (s[i] = s[i + 1]);
    
    writeln(f);
end.

3)
var
    k, t,  i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(99);
//    Println(s);    
        
    k := n div 2;
    for i := 1 to k div 2 do
    begin
        t := s[i];
        s[i] := s[k + 1 - i];
        s[k + 1 - i] := t;
        
        t := s[i+k];
        s[i+k] := s[n + 1 - i];
        s[n + 1 - i] := t;
    end;
    
//    Println(s);
    for i := 1 to n do
        write(s[i], ' ');
end.
4,7(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ