# https://pastebin.com/V2MMpJeN
#
# A.
def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")
print(f"A. function(1230) returns {function(1230)}")
# B.
def function(digit): return digit >= 0 and digit <= 2**8
print(f"B. function(751) returns {function(751)}")
# C.
def function(digit):
if digit < 2: return False
if digit == 2: return True
i=2
lim=int(digit**(1/2))
for n in range(i, lim + 1):
if digit % n == 0: return False
# конец двойной табуляции
return True
# конец табуляции
print(f"C. function(17) returns {function(17)}")
n=int(input("<-- enter digit: "))
print(f"C. function({n}) returns {function(n)}")
print("Число", n, "простое" if function(n) else "составное")
var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
# https://pastebin.com/V2MMpJeN
#
# A.
def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")
print(f"A. function(1230) returns {function(1230)}")
# B.
def function(digit): return digit >= 0 and digit <= 2**8
print(f"B. function(751) returns {function(751)}")
# C.
def function(digit):
if digit < 2: return False
if digit == 2: return True
i=2
lim=int(digit**(1/2))
for n in range(i, lim + 1):
if digit % n == 0: return False
# конец двойной табуляции
return True
# конец табуляции
print(f"C. function(17) returns {function(17)}")
n=int(input("<-- enter digit: "))
print(f"C. function({n}) returns {function(n)}")
print("Число", n, "простое" if function(n) else "составное")
var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15