На python1.создать список с положительными и отрицательными десятичными числами 2.найти максимальное число среди тех чисел кото
На python 1.создать список с положительными и отрицательными десятичными числами 2.найти максимальное число среди тех чисел котоорые находятся в интервале от -30 до -10 3.найти минимальное число среди тех у которых целая часть заканчивается на 6 4.найти среднее арифметическое всех чисел и заменеить все мин. числа на среднее арифметичское 5.в новый список записать те положительные элементы у которых в дробной части есть 5
# Используется версия python 3.6. # 1. Список с положительными и отрицательными десятичными числами. x = [1.0, -6.54, 10.5, 3.6, -12.6, -26.3, -50.8, -40.2, 5.0, 14.2, 50.9] # 2. Нахождение максимального числа среди тех чисел, которые # находятся в интервале: (-30, -10). cond2 = max([el for el in x if el > -30 and el < -10]) # 3. Нахождение минимального числа среди тех, у которых # целая часть заканчивается на 6. cond3 = min([el for el in x if abs(int(el)) % 10 == 6]) # 4. Нахождение среднего арифметического всех чисел и # замена всех мин. чисел на среднее арифметическое. x_copy = x.copy() mean = sum(x) / len(x) for idx, el in enumerate(x_copy): if el < mean: x_copy[idx] = mean # 5. Запись в новый список тех положительных элементов, у которых # в дробной части есть 5. new_list = list() for el in x: str_el = str(el) pos_point = str_el.find('.') fraction = str_el[pos_point:] # дробная часть числа в виде строки if '5' in fraction: new_list.append(el) print(x, cond2, cond3, x_copy, new_list, sep='\n')
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var n:= readlnInteger('n ='); var a:= ReadlnString.ToIntegers; SetLength(a, n); var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count; Writeln(k); end.
BEGIN Ввести число N, проверить, что оно 4-значное. read(N); if (N >= 1000) and (N <= 9999) then begin Найти 2 цифру A2 = Int(N / 100) Mod 10; Найти 4 цифру A4 = N Mod 10; Сравнить их if A2 > A4 then write "Вторая цифра больше, чем четвертая"; if A2 < A4 then write "Вторая цифра меньше, чем четвертая"; if A2 = A4 then write "Вторая цифра равна четвертой"; else write "Число должно быть 4-значным!"; end; Конец END.
Program Task; Var a, b: Real; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2); ReadLn; End.