# 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 "составное")
# 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 "составное")
Поделитесь своими знаниями, ответьте на вопрос:
Дан фрагмент программы (использующий цикл с предусловием): k: =0; while k< 10 do begin k: = k+1; p: =k*k; writeln(p); end что выводится на экран в результате выполнения данного фрагмента? напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя
4
9
16
25
36
49
64
81
100
(в результате выполнения данного фрагмента выводится это)
Напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя
Я решил через "for". Если надо "While" напиши
var s,n,i:integer;
begin
read(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln(s);
end.