- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
i = 0
t = 12
r = 0
g = 0
while r!=1:
i = i + 1
if t%i==0:
g = g + 1
if i==5000:
print t, ' - ',g
i, g = 0, 0
t = t + 1
if t==203:
r = 1
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 5
−97
i = 0
t = 12
r = 0
g = 0
while r!=1:
i = i + 1
if t%i==0:
g = g + 1
if i==5000:
print t, ' - ',g
i, g = 0, 0
t = t + 1
if t==203:
r = 1
Нахождение дилителей.
Вот так-вот, человек видимо на любит юзать цикл for=)
−99
T, b= 0, []
While t!=10:
If t!=6:
Print ''Чётные числа''
A = int(raw_input('>> '))
B.append(a)
If t!=500:
Print 'не чётные'
А = int(raw_input('>> '))
B.append(a)
#якобы условия для того чтоб ввод был как бы зеброй, четные, не чётные#
+93
Label 1, 2;
var
M,n:integer;
B:real;
Begin
Read(m,n);
2:
B:=m mod n;
If b=0 then goto 1 else
Begin
M:=n; n:=b;
Goto 2;
End;
1:
Write(n);
End.
Кaк бэ прогрaммноe рeaлизaциё aлгоритмa Евклидa, нaхождeниe мaксимaльного дeлитeля двух чисeл, кaк-то тaк.
+147
+++++++++++++
++++++++++++++++
++++++++++++++++
+++++++++++++
++++++++++++++.++
+++++++++++++++
++++++++++++.
+++++++..++
+.-------------------
----------------------------
-----------------
---------------.+++
++++++++++++++++
++++++++++
+++++++++++++
+++++++++++++.+++
+++++++++++++++
++++++.++
+.------.--------.----------
--------
----------------------------
-----------------
----.-----------------------
.
Не говно код, но тем не мение.
+123
var
a,b,c:real;
begin
read(a,b,c);
if a<b then
If b>a then
If b>c then
If c<b then
Write('max - ',b);
if b<a then
If a>b then
If a>c then
If c<a then
Writae('max - ',a);
if a<c then
If c>a then
If c>b then
If c<b then
Write('max - ',c);
Readln;
End.
Нахождение максимального значения из 3 чисел, бля.