x div y - выводит целую часть получившегося числа,то есть делит x на y и выводит целую часть этого числа.
1) 44 div 8
2) 44/8=5.5
Ответ: 5.
Поскольку тут речь о последовательности неизвестной длины, вводимой с клавиатуры до появления нуля, а условие позволяет для каждого вводимого числа сразу решить, должно ли оно входить в сумму, задача решается без использования массива и условие "<span>Количество чисел не превышает 1000" - это просто ловушка для наивных с тем, чтобы в случае использования массива длиной 1000 объявить затем решение неэффективным по памяти.
</span><em>1. Решение на современной версии Паскаля</em>
<em>PascalABC.NET 3.2, сборка 1389 от 01.03.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadSeqIntegerWhile(n->n<>0)
.Where(n->(n mod 3=0) and (n mod 10=6)).Sum;
Writeln('Сумма отобранных чисел равна ',s)
end.
<em>Пример</em>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
<em>2. Решение "по-школьному"</em>
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln('Сумма отобранных чисел равна ',s)
end.
<u>Пример</u>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
A)*
б)/
в)*
г)+
д)*
е)*
/ - разделить * - умножить
import math
a = float(input("a="))
b = float(input("b="))
c = float(input("c="))
D = (b*b)+(-1*(4*a*c))
if D < 0:
print("Нет корней")
elif D > 0:
sqrtD = math.sqrt(D)
print(-b)
print(-sqrtD)
x1 = (sqrtD-b) / (2*a)
x2 = (-b-sqrtD) / (2*a)
print("x1={0};x2={1}".format(x1,x2))
elif D == 0:
x = -b/4*a*c
print ("x=",x,sep='')
else:
print("Произошла ошибка")
print("Ноль в качестве знака операции "
"завершит работу программы")
while True:
s = input("Знак (+,-,*,/): ")
if s == '0': break
if s in ('+','-','*','/'):
x = float(input("x="))
y = float(input("y="))
if s == '+':
print("%.2f" % (x+y))
elif s == '-':
print("%.2f" % (x-y))
elif s == '*':
print("%.2f" % (x*y))
elif s == '/':
if y != 0:
print("%.2f" % (x/y))
else:
print("Деление на ноль!")
else:
print("Неверный знак операции!")