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

Задача 1. Вычислить среднее арифметическое 5 целых случайных чисел, которые выбираются из диапазона от -15 до +20.
Задача 2. Вычислить выражение , где t – случайное вещественное число, целая часть которого лежит в диапазоне от -4 до +4.
Задача 3. Написать программу, которая выводит арифметический пример для вычисления, запрашивает ответ и выводит соответствующее сообщение (“Верно” или “Неверно”). Общая формула для арифметического примера: (A+B)·C–D. Для примера выбираются случайные двузначные числа от 20 до 60.
Задача 4. Сгенерировать случайное число в диапазоне от -20 до 50 и вывести его на экран.
Задача 5. Сгенерировать случайное число в диапазоне от a до b и вывести его на экран. Границы диапазона вводятся пользователем, причем a < b.
Задача 6. Вычислить выражение , где d – случайное вещественное число, целая часть которого лежит в диапазоне от 3 до 15.
Задача 7. Вычислить выражение , где a – случайное число в диапазоне от -5 до +5, d – случайное число в диапазоне от 2 до 21.

👇
Ответ:
kaitoniakelya
kaitoniakelya
03.05.2023

ага

Объяснение:

4,4(61 оценок)
Ответ:
Сmetana34
Сmetana34
03.05.2023
Эмм это не 1-4классы
4,7(75 оценок)
Открыть все ответы
Ответ:
zarizatamara00
zarizatamara00
03.05.2023
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.
4,6(100 оценок)
Ответ:
denisbutrik
denisbutrik
03.05.2023

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

4,8(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ