1)var a,b,i:integer; begin readln(a,b); for i:= 1 to 100 do if (i mod a<>0) and (i mod b<>0) then write(i,' ') end. 2)var a,b,i,k:integer; begin readln(a,b); k:=0; for i:= a to b do if (i mod 7=0) xor (i mod 9=0) then k:=k+1; write(k) end.
3)var pol,i,otr,a:integer; begin otr:=0; pol:=0; for i:= 1 to 10 do begin readln(a); if a>0 then pol:=pol+1; if a<0 then otr:=otr+1 end; if pol>otr then write('Положительных больше'); if otr>pol then write('Отрицательных больше') end. 4) var i,a,b:integer; begin readln(a,b); for i:= a to b do if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ') end.
gre4ka2004
08.04.2020
1624 год-считающие часы В.Шиккарда( первый механический калькулятор, умевший выполнять четыре арифметические действия) 1642 год-Паскалина Б.Паскаля 1820 год-калькулятор Ч.Томаса(Арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница 1939 год-Z1 К.Цузе( так и не заработала достаточно надёжно, из-за недостаточной точности выполнения составных частей.) 1940 год-Z2 К.Цузе(её планы и фотографии были уничтожены) 1943 год-Z3 К.Цузе(Она была построена на телефонных реле и работала вполне удовлетворительно. Тем самым, Z3 стала первым работающим компьютером, управляемым программой) 1945 год-ЭНИАК 1963 год-Colossus(«Колосс» стал первым полностью электронным вычислительным устройством, хотя на нём и нельзя было реализовать любую вычислимую функцию) 1965 год-Apple 2 2008 год-СКИФ МГУ (суперкомпьютер собранный на базе решений и оборудования американской фирмы Intel, проект был разработан в Белорусском Государственном Университете (26-е место в рейтинге Топ-500 2012).
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Программирование на Python дано натуральные числа m и n. Составить программу для нахождения всех их общих делителей
Відповідь:
n = int(input("n = "))
m = int(input("m = "))
q = 0
p = []
while True:
q += 1
c = n%q
d = m%q
if c == 0 and d == 0:
p.append(q)
if q>m or q>n:
break
print("Все общие делители - ", p)
Пояснення: