var a,b,c,d:real;
c1, c2, z1, z2:real;
begin
write('Введи числитель первой дроби: '); read(a);
write('Введи знаменатель первой дроби: '); read(b);
write('Введи числитель второй дроби: '); read(c);
write('Введи знаменатель второй дроби: '); read(d);
write(a + ' / ' + b + ' + ' + c + ' / ' + d + ' = ');
if(b = d) then begin
c1 := a + c;
write(c1 + ' / ' + b);
End else Begin
z1 := b * d;
c1 := (z1 / b) * a;
c2 := (z1 / d) * c;
z2 := c1 + c2;
write(z2 + ' / ' + z1);
end;
end.
t = int(input())
if t <= 3:
print("GREEN")
elif t <= 5:
print("RED")
elif t <= 8:
print("GREEN")
elif t <= 10:
print("RED")
elif t <= 13:
print("GREEN")
elif t <= 15:
print("GREEN")
elif t <= 18:
print("RED")
elif t <= 20:
print("GREEN")
elif t <= 23:
print("RED")
elif t <= 25:
print("GREEN")
elif t <= 28:
print("RED")
elif t <= 30:
print("GREEN")
elif t <= 33:
print("RED")
elif t <= 35:
print("GREEN")
elif t <= 38:
print("RED")
elif t <= 40:
print("GREEN")
elif t <= 43:
print("RED")
elif t <= 45:
print("GREEN")
elif t <= 48:
print("RED")
elif t <= 50:
print("GREEN")
elif t <= 53:
print("RED")
elif t <= 55:
print("GREEN")
elif t <= 58:
print("RED")
elif t <= 60:
print("GREEN")
Мы переводим числа в десятичную систему счисления из двоичной. В двоичной системе число десять записывается, как 1010 - на него и будем делить. В "столбик"
1.
101010 / 1010 = 100 и остаток 10 = 2₁₀ (показано во вложении)
100 / 1010 = 0 и остаток 100 = 4₁₀
Записываем остатки в обратном порядке: 42.
101010₂ = 42₁₀
2.
1010101101 / 1010 = 1000100 и остаток 101 = 5₁₀
1000100 / 1010 = 110 и остаток 1000 = 8₁₀
110 / 1010 = 0 и остаток 110 = 6₁₀
Записываем остатки в обратном порядке: 685.
1010101101₂ = 685₁₀
3.
10101111 / 1010 = 10001 и остаток 101 = 5₁₀
10001 / 1010 = 1 и остаток 111 = 7₁₀
1 / 1010 = 0 и остаток 1
Записываем остатки в обратном порядке: 175.
10101111₂ = 175₁₀