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

Сформировать массив 40 целых случайных чисел в диапазоне от минус 40 до 40. напечатать его. напечатать произведение элементов, расположенных между максимальным и минимальным элементами массива
c#

👇
Открыть все ответы
Ответ:
okda2
okda2
02.06.2023
Import math
def check_square(circle_sq,rect_sq):
    l_rect = math.sqrt(rect_sq)
    r_in_circle = l_rect/2
    s_in_circle = math.pi*pow(r_in_circle,2)
    if circle_sq <= s_in_circle:
        print("Круг уместится в квадрате")
    #
    r_circle = math.sqrt(circle_sq/math.pi)
    d_circle = r_circle*2
    s_in_rect = pow(d_circle,2)/2
    if rect_sq <= s_in_rect:
        print("вадрат уместится в круге")
circle_sq = input("Введите площать круга: ")
rect_sq = input("Введите площать квадрата: ")
check_square(circle_sq,rect_sq)
4,7(70 оценок)
Ответ:
yarovikova1981
yarovikova1981
02.06.2023
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var x:=ReadlnString('Введите слово Х:');
  var y:=ReadlnString('Введите слово Y:');
  var Good:=True;
  for var i:=1 to y.Length do begin
    var p:=Pos(y[i],x);
    if p>0 then Delete(x,p,1)
    else begin Good:=False; Break end
    end;
  if Good then
    Writeln('Можно составить ',y)
  else
    Writeln('Нельзя составить ',y)
end.

Тестовое решение:
Введите слово Х: образование
Введите слово Y: название
Нельзя составить название

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