Даны четыре целых числа определить сколько из них четных

var числа = []; for (let сч = 0; сч < 3; сч++) числа.push(Math.floor(Math.random() * 100)); var чётных = 0; числа.forEach(function (зн) < if (зн % 2 == 0) чётных++; >); alert(чётных);

var a = prompt(«a:»), b = prompt(«b:»), c = prompt(«c:»);

var d = Math.pow(b, 2) — 4 * a * c;

if (d < 0) alert(«Нету решений.»);

else if (d == 0) alert(«x x_1 = » + ((-b — Math.sqrt(d)) / 2 / a) + «; x_2 x:»), y = prompt(«y:»);

if (y > 0) alert(«I»); else if (y < 0) alert(«IV»); else alert(«На оси Ox»);

if (y > 0) alert(«II»); else if (y < 0) alert(«III»); else alert(«На оси Ox»);

I4. Неполный и вложенные условные операторы

Напишите в комментарии к этой записи консольные приложения для решения этих задач, указав код задачи.
Решены задачи: 13, 15, 25. Не решены: 1-12, 14, 16-24.

Задачи

I4.1. Даны два различных вещественных числа. Определить наибольшее из них, не используя полный условный оператор, а применив:
а) два неполных условных оператора;
б) один неполный условный оператор.

I4.2. Даны два различных вещественных числа. Определить наибольшее и наименьшее из них, не используя полный условный оператор, а применив:
а) два неполных условных оператора;
б) один неполный условный оператор.

I4.3. Даны три различных вещественных числа. Не используя полный условный оператор, определить:
а) наибольшее из них;
б) наименьшее из них.

I4.4. Даны четыре различных вещественных числа. Не используя полный условный оператор, определить:
а) наибольшее из них;
б) наименьшее из них.

I4.5. Дано вещественное число. Вывести на экран его абсолютную величину (условно принимая, что соответствующей стандартной функции нет). Полный условный оператор не использовать.

I4.6. Даны два вещественных числа. Условно принимая, что стандартной функции определения абсолютной величины числа нет, найти:
а) полусумму абсолютных величин заданных чисел;
б) квадратный корень из произведения абсолютных величин заданных чисел.

I4.7. Составить программу, которая уменьшает первое введенное число в два раза, если оно больше второго введенного числа по абсолютной величине.

I4.8. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

I4.9. Даны три целых числа. Вывести на экран те из них, которые являются четными.

I4.10. Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны.

I4.11. Даны три вещественных числа. Вывести на экран:
а) те из них, которые принадлежат интервалу (1,6—3,8);
б) те из них, которые принадлежат интервалу (0,7—5,1).

I4.12. Даны четыре вещественных числа. Определить, сколько из них отрицательных. Оператор цикла не использовать.

I4.13. Даны четыре целых числа. Определить, сколько из них четных.

I4.14. Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти. Оператор цикла не использовать.

I4.15. Даны четыре целых числа. Определить сумму тех из них, которые кратны трем. Оператор цикла не использовать.

I4.16. В чемпионате по футболу команде за выигрыш дается 3 очка, за проигрыш — 0, за ничью — 1. Известно количество очков, полученных командой за игру.
Определить словесный результат игры (выигрыш, проигрыш или ничья).

I4.17. Известен вес самбиста-любителя. Известно, что вес таков, что самбист может быть отнесен к одной из трех весовых категорий:
1) легкий вес — до 60 кг;
2) первый полусредний вес — до 64 кг;
3) полусредний вес — до 69 кг.
Определить, в какой категории будет выступать данный боксер.

I4.18. Даны вещественные числа a, b, c ( a не равно 0 ). Выяснить, имеет ли уравнение ax 2 + bx + c = 0 вещественные корни. Если такие корни имеются, то найти их. В противном случае ответом должно служить сообщение, что вещественных корней нет.

I4.19. Даны три различных целых числа. Определить, какое из них (первое, второе или третье):
а) самое большое;
б) самое маленькое;
в) является средним (средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего).

I4.20. Определить максимальное и минимальное значения из трех различных вещественных чисел.

I4.21. Составить программу нахождения суммы двух наибольших из трех различных чисел.

I4.22. Составить программу нахождения произведения двух наименьших из трех различных чисел.

I4.23. Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего).

I4.24. Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (x, у), при условии, что x и y не равны 0.

I4.25. Даны три вещественных числа. Используя только два неполных условных оператора, определить:
а) максимальное значение заданных чисел;
б) минимальное значение заданных чисел.

NEW: Наш Чат, в котором вы можете обсудить любые вопросы, идеи, поделиться опытом или связаться с администраторами.

Лабораторная работа №3. Символы. Списки. Тьюплы. Частные определения. Определения с альтернативами. Охранные выражения.

Применяя теорию лекции №2, выполните задания, соответствующие вашему варианту.

Пример выполнения задания:

Задача 1. В трехзначном числе x зачеркнули первую цифру. Когда полученное число умножили на 10, а произведение сложили с первой цифрой числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n [1, 999]).

делим с остатоком на 10, получая нужные цифры, и умножая на 10 в другой последовательности получаем нужное число

> f1 :: Int -> Int

> f1 (n) = (n `rem` 10) * 100 + ((n `div` 100) `rem` 10) * 10 + ((n `div` 10) `rem` 10)

Читать:

Как разрешить группировку на защищенном листе

Задача 2. Даны четыре целых числа. Определить, сколько из них четных.

функция проверяет числа на четность

> isEven :: Int -> Int

> isEven x | (even(x)) = 1

> | otherwise = 0

функция возвращает количество четных чисел из четырех заданных

> f2 :: (Int, Int, Int, Int) -> Int

> f2 (a, b, c, d) = isEven (a) + isEven (b) + isEven (c) + isEven (d)

Из трехзначного числа x вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа x, то получилось число n. Найти число n. По заданному n найти число x (значение n вводится с клавиатуры, n[10, 999] и при этом число десятков в n не равно нулю).

Составить программу, которая уменьшает первое введенное число в два раза, если оно больше введенного второго числа по абсолютной величине.

В трехзначном числе x зачеркнули первую цифру. Когда полученное число умножили на 10, а произведение сложили с первой цифрой числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n[1, 999]).

Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

В трехзначном числе x зачеркнули вторую цифру. Когда к полученному двузначному числу слева приписали вторую цифру числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n[10, 999] и при этом число десятков в n не равно нулю).

Даны три целых числа. Вывести на экран те из них, которые являются четными.

В трехзначном числе x зачеркнули вторую цифру. Когда к полученному двузначному числу справа приписали вторую цифру числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n[100, 999]).

Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны.

В трехзначном числе x зачеркнули последнюю цифру. Когда в оставшемся двузначном числе переставили цифры, а затем приписали к ним слева последнюю цифру числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n[1, 999] и при этом число единиц в n не равно нулю).

Даны четыре вещественных числа. Определить сколько из них отрицательных.

В трехзначном числе x зачеркнули первую цифру. Когда полученное число умножили на 10, а произведение сложили со второй цифрой числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, n[1, 999]).

Даны четыре целых числа. Определить, сколько из них нечетных.

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

Даны четыре целых числа. Определить сумму тех из них, которые кратны трем.

Составить программу для вычисления функции y(x):

Контрольные вопросы.

К какому типу относятся символы? Какие три символа нельзя записать обычным способом?

1.Даны четыре целых числа,найти сколько из их чётных.2.Составить метод решения

1.Даны четыре целых числа,найти сколько из их чётных.
2.Составить алгоритм решения квадратного уравнения,осмотреть 3 варианта значения дискриминанта(dgt;0,d=0,dlt;0).
3.Вывести на экран номер четверти который принадлежит точкам,координатам x,y введёнными с клавиатуры(осмотреть вариант когда(x=0,y=0).
Пожалуйста на завтра.ДАЮ 25 БАЛЛОВ

Сашок Дожин
Информатика
2019-08-23 12:50:16
0
2

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

ReadSeqInteger(4).Where(t -gt; t.IsEven).Count.Println

var (a, b, c) := ReadReal3(‘Введите a, b, c:’);

var D := b * b — 4 * a * c;

if d lt; 0 then Println(‘Нет корней’)

if d = 0 then Println(‘x =’, -b / 2 / a)

Print(‘x1 =’, (-b — D) / 2 / a);

Println(‘x2 =’, (-b + D) / 2 / a);

var (x, y) := ReadReal2;

if y = 0 then Println(‘Начало координат’)

else Println(‘Ось Oy’)

if y = 0 then Println(‘Ось Ox’)

if y gt; 0 then Println(‘II четверть’)

else Println(‘III четверть’)

if y gt; 0 then Println(‘I четверть’)

else Println(‘IV четверть’)

var числа = []; for (let сч = 0; сч lt; 3; сч++) числа.push(Math.floor(Math.random() * 100)); var чётных = 0; числа.forEach(function (зн) if (зн % 2 == 0) чётных++; ); alert(чётных);

var a = prompt(«a:»), b = prompt(«b:»), c = prompt(«c:»);

var d = Math.pow(b, 2) — 4 * a * c;

if (d lt; 0) alert(«Нету решений.»);

else if (d == 0) alert(«x x_1 = » + ((-b — Math.sqrt(d)) / 2 / a) + «; x_2 x:»), y = prompt(«y:»);

if (y gt; 0) alert(«I»); else if (y lt; 0) alert(«IV»); else alert(«На оси Ox»);

if (y gt; 0) alert(«II»); else if (y lt; 0) alert(«III»); else alert(«На оси Ox»);

Даны четыре целых числа определить сколько из них четных