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

Як виконується наведений фрагмент алгоритму ​


Як виконується наведений фрагмент алгоритму ​

👇
Ответ:
настя200336
настя200336
19.07.2022

якщо (происходе дія) то повторити 10 разів, а якщо ні(або інакше) то повторити 20 разів

4,6(29 оценок)
Ответ:
вика3850
вика3850
19.07.2022

якщо так повторити 10 разів.

якщо ні повторити 20 разів

4,6(96 оценок)
Открыть все ответы
Ответ:
Лубничка
Лубничка
19.07.2022
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
  x.Println; var a:=x.Where(p->p>0).Sum;
  var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
  y.Println; var b:=y.Where(p->p>0).Sum;
  var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
  t.Println; var c:=t.Where(p->p>0).Sum;
  Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.

Пример
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
4,8(41 оценок)
Ответ:
Haesiy
Haesiy
19.07.2022
Sub PS()
    Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    Dim x3 As Double, y3 As Double
    x1 = Cells(2, 2): y1 = Cells(2, 3)
    x2 = Cells(3, 2): y2 = Cells(3, 3)
    x3 = Cells(4, 2): y3 = Cells(4, 3)
    a = L(x1, y1, x2, y2)
    b = L(x2, y2, x3, y3)
    c = L(x3, y3, x1, y1)
    P = a + b + c
    Cells(6, 2) = P
    p2 = P / 2
    S = Sqr(p2 * (P - a) * (P - b) * (P - c))
    Cells(7, 2) = S
End Sub

Function L(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
    L = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function

Заданы координаты трех вершин треугольника (x1,y1) (x2, y2) (x3, y3). найти его периметр и площадь.
4,4(23 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ