// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); end.
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
ответ на Python:
a,k = input(),0
k = 6 * a.count('6') #Мы считаем кол-во цифр 6 в числе и умножаем 6 на это число
q = []
for x in range(-3,8,0.5):
q.append(3-x) #Надеюсь я правильно понял функцию
s = [int(i) for i in a] #Мы создаём массив который содержит каждую цифру
#Если нельзя массивы
for i in a:
print(i)
Объяснение:
Цифры, кратные шести - только 6
Странно, что функция на писана так, 3 - х2/2, и если я её понял то она означает 3 - x * 2 / 2
А там просто циклом проходимся по числу