2800

Faixa de problemas: 2800-2899

Total resolvido: 36 de 100 problemas

Problemas não resolvidos (64)

2800, 2801, 2804, 2805, 2806, 2809, 2810, 2811, 2814, 2816, 2817, 2818, 2819, 2820, 2821, 2822, 2824, 2825, 2828, 2829, 2832, 2834, 2836, 2837, 2838, 2841, 2842, 2843, 2844, 2848, 2849, 2853, 2854, 2855, 2856, 2857, 2859, 2860, 2865, 2870, 2871, 2873, 2874, 2875, 2876, 2877, 2878, 2881, 2882, 2883, 2884, 2885, 2886, 2887, 2888, 2889, 2890, 2891, 2893, 2894, 2895, 2897, 2898, 2899

2802 - Dividindo Círculos

Descrição do Problema: 2802 - Dividindo Círculos

Categoria: Iniciante

n = leia_inteiro
a = (n / 24) * (n ^ 3 - 6 * n ^ 2 + 23 * n - 18) + 1
escreva a formato "%.0f"

2803 - Estados do Norte

Descrição do Problema: 2803 - Estados do Norte

Categoria: Ad-Hoc

estados_norte = ["acre", "amapa", "amazonas", "para", "rondonia", "roraima", "tocantins"]
estado = leia_texto
se estados_norte.contém(estado) então
  escreva "Regiao Norte"
senão
  escreva "Outra regiao"
fim

2807 - Iccanobif

Descrição do Problema: 2807 - Iccanobif

Categoria: Iniciante

n = leia_inteiro
var iccanobif := se n > 1 então [1, 1] senão [1] fim
para i de 3 até n faça
  a, b = iccanobif[1], iccanobif[2]
  iccanobif := (a + b) :: iccanobif
fim
escreva iccanobif.junte(" ")

2808 - Mais Cavalos

Descrição do Problema: 2808 - Mais Cavalos

Categoria: Iniciante

p = leia_textos(" ")
p1 = p[1]
p2 = p[2]

d1 = p1[1].inteiro - p2[1].inteiro
d2 = p1[2].inteiro - p2[2].inteiro
se (d1 * d2).abs == 2 então
  escreva "VALIDO"
senão
  escreva "INVALIDO"
fim

2812 - Laércio

Descrição do Problema: 2812 - Laércio

Categoria: Iniciante

n = leia_inteiro
para i de 1 até n faça
  leia_inteiro
  nums = leia_inteiros(" ").selecione(a => a mod 2 == 1).ordene.inverta
  resp = para j de 2 até nums.tamanho + 1, k em [se j mod 2 == 0 então 1 senão -1 fim] gere
    nums[k * j div 2]
  fim.junte(" ")
  escreva resp
fim

2813 - Evitando Chuva

Descrição do Problema: 2813 - Evitando Chuva

Categoria: Iniciante

n = leia_inteiro
var casa, escritorio, cont:= 0
para i de 1 até n faça
  dia = leia_textos(" ")
  se dia[1] == "chuva" então
    cont := cont -1
    se casa < -cont então
      casa := -cont
    fim
  fim
  se dia[2] == "chuva" então
    cont := cont + 1
    se escritorio < cont então
      escritorio := cont
    fim
  fim
fim
escreva "{casa} {escritorio}"

2815 - Digitador Gago

Descrição do Problema: 2815 - Digitador Gago

Categoria: Strings

linha = leia_textos(" ")
saida = para palavra em linha gere
          se palavra.pegue(2) == palavra.descarte(2).pegue(2) então
            palavra.descarte(2)
          senão
            palavra
          fim
        fim
escreva saida.junte(" ")

2823 - Eearliest Deadline First

Descrição do Problema: 2823 - Eearliest Deadline First

Categoria: Iniciante

n = leia_inteiro
var soma := 0.0
para i de 1 até n faça
  a = leia_reais(" ")
  soma := soma + a[1] / a[2]
fim
se soma <= 1.0 então
  escreva "OK"
senão
  escreva "FAIL"
fim

2826 - Léxico

Descrição do Problema: 2826 - Léxico

Categoria: Iniciante

a, b = leia_texto
se a < b então
  escreva a
  escreva b
senão
  escreva b
  escreva a
fim

2827 - Contador de Tokens

Descrição do Problema: 2827 - Contador de Tokens

Categoria: Strings

s = leia_texto.minúsculo.lista
tokens = s.zip(s.cauda)
          .selecione(a => a.primeiro <> ' ' e a.segundo <> ' ')
          .mapeie(a => "{a.primeiro}{a.segundo}")
          .ordene
          .divida_quando(_ <> _)
          .ordene(_.tamanho)
          .inverta
          .divida_quando(_.tamanho <> _.tamanho)
          .cabeça
          .ordene(_.cabeça)
          .cabeça

escreva "{tokens.cabeça}:{tokens.tamanho}"

2830 - Copa

Descrição do Problema: 2830 - Copa

Categoria: Ad-Hoc · OBI 2018

K, L = leia_inteiro

se K < 1 ou K > 16 ou K == L ou L < 1 ou L > 16 então
  escreva "Entrada inválida!"
senãose K < 9 e L >= 9 ou L < 9 e K >= 9 então
  escreva "final"
senão
  se K > L então
    se K >= 5 e L < 5 ou K >= 13 e L >= 9 e L < 13 então
      escreva "semifinal"
    senãose K mod 2 == 0 e L == K - 1 então
      escreva "oitavas"
    senãose K - L == 1 ou K - L == 2 ou K - L == 3 então
      escreva "quartas"
    fim
  fim
  se L > K então
    se L >= 5 e K < 5 ou L >= 13 e K >= 9 e K < 13 então
      escreva "semifinal"
    senãose L mod 2 == 0 e K == L - 1 então
      escreva "oitavas"
    senãose L - K == 1 ou L - K == 2 ou L - K == 3 então
      escreva "quartas"
    fim
  fim
fim

2831 - Pesos

Descrição do Problema: 2831 - Pesos

Categoria: Excluído · OBI 2018

leia_inteiro
pesos = leia_inteiros(" ")
dif = pesos.zip(0 :: pesos)
           .mapeie(a => a.primeiro - a.segundo)
           .injete(verdadeiro)((b, v) => b e v <= 8)
se dif então
  escreva "S"
senão
  escreva "N"
fim

2833 - Campeonato

Descrição do Problema: 2833 - Campeonato

Categoria: Ad-Hoc · OBI 2018

confronto(a, b, n: Inteiro) =
  ((a - 1) mod n - (n - 1) / 2) * ((b - 1) mod n - (n - 1) / 2) < 0

jogadores = leia_inteiros(" ")
kung = jogadores.posicao(1)
lu = jogadores.posicao(9)
se confronto(kung, lu, 16) então
  escreva "final"
senãose confronto(kung, lu, 8) então
  escreva "semifinal"
senãose confronto(kung, lu, 4) então
  escreva "quartas"
senão
  escreva "oitavas"
fim

2835 - Elevador

Descrição do Problema: 2835 - Elevador

Categoria: Ad-Hoc · OBI 2018

leia_inteiro
pesos = leia_inteiros(" ").ordene
dif = pesos.zip(0 :: pesos)
           .mapeie(a => a.primeiro - a.segundo)
           .injete(verdadeiro)((b, v) => b e v <= 8)
se dif então
  escreva "S"
senão
  escreva "N"
fim

2839 - As Meias de Rangel

Descrição do Problema: 2839 - As Meias de Rangel

Categoria: Matemática

escreva leia_inteiro + 1

2840 - Balão++

Descrição do Problema: 2840 - Balão++

Categoria: Geometria Computacional

a = leia_inteiros(" ")
r, l = a[1], a[2]
pi = 3.1415
v = 4 / 3 * pi * r ^ 3
baloes = l / v
escreva baloes.inteiro

2845 - Festa no Polo Norte

Descrição do Problema: 2845 - Festa no Polo Norte

Categoria: Iniciante

n = leia_inteiro
a = leia_inteiros(" ").ordene
maior = a[-1]
var ns := para x em a.descarte(1).pegue(20),
               y de (maior div x + 1) * x até maior + 500 passo x gere y fim.ordene

var m := maior + 1
enquanto ns.tamanho > 1 e m >= ns[1] faça
  ns := ns.cauda
  se m == ns[1] então
    m := m + 1
  fim
fim
escreva m

2846 - Fibonot

Descrição do Problema: 2846 - Fibonot

Categoria: Iniciante

var fib := [2, 1]
enquanto fib.cabeça < 200000 faça
  fib := (fib[2]+fib[1]) :: fib
fim
fib := fib.inverta
n = leia_inteiro
var c := 0
para i de 1 até 100100 faça
  se fib[1] == i então
    fib := fib.cauda
  senão
    c := c + 1
    se c == n então
      escreva i
    fim
  fim
fim

2847 - Papel, Tesoura, I Love You!

Descrição do Problema: 2847 - Papel, Tesoura, I Love You!

Categoria: Ad-Hoc

s = leia_texto
letras = "oIlveyu!".lista
r = s.selecione(letras.contém)
a = letras.mapeie(c => r.selecione(c == _).tamanho)
b = (a.cabeca div 2) :: a.cauda
escreva b.ordene.cabeca

2850 - Papagaio Poliglota

Descrição do Problema: 2850 - Papagaio Poliglota

Categoria: Iniciante

var a := leia_texto
enquanto não eof faça
  escolha a[1]
    caso 'e' => escreva "ingles"
    caso 'd' => escreva "frances"
    caso 'n' => escreva "portugues"
    caso  _  => escreva "caiu"
  fim
  a := leia_texto
fim

2851 - Desafio de Rangel

Descrição do Problema: 2851 - Desafio de Rangel

Categoria: Ad-Hoc

n = leia_inteiro
nums = leia_inteiros(" ").inverta.mapeie(i => (i + '0').caractere) #.junte("")
var lasts := ""
list = para i em nums gere
  a = lasts.descarte_enquanto(i >= _)
  lasts := i + a
  se a.tamanho == 0 então "*" senão a[1] - '0' fim
fim
escreva list.inverta.junte(" ")

2852 - Troca de Mensagens

Descrição do Problema: 2852 - Troca de Mensagens

Categoria: Strings

k = leia_texto
n = leia_inteiro
tam = k.tamanho
para i de 1 até n faça
  frase = leia_texto
  var a := -1
  var vogal := frase.tamanho == 0 ou "aeiou".contém(frase[1])
  para i de 1 até frase.tamanho faça
    letra = frase[i]
    se i > 1 e frase[i-1] == ' ' então
      vogal := "aeiou".contém(letra)
    fim
    se vogal ou letra == ' ' então
      imprima letra
    senão
      a := (a + 1) mod tam
      imprima ((letra + k[a+1] - 2 * 'a') mod 26 + 'a').caractere
    fim
  fim
  escreva ""
fim

2858 - Tabuleiro Infinito

Descrição do Problema: 2858 - Tabuleiro Infinito

Categoria: Ad-Hoc

entrada = leia_inteiros(" ")
dir, esq = entrada[1], entrada[2]

var n := dir
var cont := 1
enquanto n > 1 ou n < -1 faça
  se n >= esq - 1 então
    n := n - esq
  senão
    n := n + dir
  fim
  cont := cont + 1
fim
se n==0 então
  escreva "IMPOSSIVEL"
senão
  escreva cont
fim

2861 - A Saída

Descrição do Problema: 2861 - A Saída

Categoria: Iniciante

n = leia_inteiro
leia_textos(n)
para i de 1 até n faça
  escreva "gzuz"
fim

2862 - Inseto!

Descrição do Problema: 2862 - Inseto!

Categoria: Iniciante · Olimpíada IFSULDEMINAS 2018

c = leia_inteiro
para i de 1 até c faça
  n = leia_inteiro
  se n > 8000 então
    escreva "Mais de 8000!"
  senão
    escreva "Inseto!"
  fim
fim

2863 - Umil Bolt

Descrição do Problema: 2863 - Umil Bolt

Categoria: Iniciante · Olimpíada IFSULDEMINAS 2018

var t := leia_inteiro
enquanto t > 0 faça
  var melhor := leia_real
  para i de 2 até t faça
    tempo = leia_real
    se tempo < melhor então
      melhor := tempo
    fim
  fim
  escreva melhor formato "%.2f"
  t := leia_inteiro
fim

2864 - Qual é a Altura?

Descrição do Problema: 2864 - Qual é a Altura?

Categoria: Matemática · Olimpíada IFSULDEMINAS 2018

t = leia_inteiro
para i de 1 até t faça
  in = leia_inteiros(" ")
  a, b, c = in[1], in[2], in[3]
  x = - b / (2 * a)
  maximo = a * x^2 + b * x + c
  escreva maximo formato "%.2f"
fim

2866 - Criptotexto

Descrição do Problema: 2866 - Criptotexto

Categoria: Strings · Olimpíada IFSULDEMINAS 2018

n = leia_inteiro

para i de 1 até n faça
  a = leia_texto
  b = a.selecione(_ > 96).inverta
  escreva b
fim

2867 - Dígitos

Descrição do Problema: 2867 - Dígitos

Categoria: Iniciante · Olimpíada IFSULDEMINAS 2018

c = leia_inteiro
para i de 1 até c faça
  entrada = leia_inteiros(" ")
  n, m = entrada[1], entrada[2]
  r = n ^ m
  x = (r formato "%e").descarte_enquanto(_ <> '+').descarte(1).inteiro + 1
  escreva x
fim

2868 - Errrou!

Descrição do Problema: 2868 - Errrou!

Categoria: Ad-Hoc · Olimpíada IFSULDEMINAS 2018

n = leia_inteiro
para i de 1 até n faça
  s = leia_textos(" ")
  a = s[1].inteiro
  b = s[3].inteiro
  c = s[5].inteiro
  d = escolha s[2]
    caso "+" => a + b
    caso "-" => a - b
    caso _   => a * b
  fim
  diff = (d - c).abs
  escreva "E{"r"*diff}ou!"
fim

2869 - Falando em Divisor...

Descrição do Problema: 2869 - Falando em Divisor...

Categoria: Matemática · Olimpíada IFSULDEMINAS 2018

a = [1, 2, 4, 6, 16, 12, 64, 24, 36, 48, 1024, 60, 4096, 192, 144, 120, 65536, 180, 262144, 240, 576, 3072, 4194304, 360, 1296, 12288, 900, 960, 268435456, 720, 73741817, 840, 9216, 196608, 5184, 1260, 719476260, 786432, 36864, 1680, 511620083, 2880, 46480318, 15360, 3600, 12582912, 743685088, 2520, 46656, 6480, 589824, 61440, 595845303, 6300, 82944, 6720, 2359296, 805306368, 134099126, 5040, 536396504, 221225451, 14400, 7560, 331776, 46080, 329376018, 983040, 37748736, 25920, 270016253, 10080, 80065005, 158428766, 32400, 3932160, 746496, 184320, 124160285, 15120, 44100, 534860242, 986564553, 20160, 5308416, 139440954, 415919090, 107520, 140130951, 25200, 2985984, 62914560, 663676353, 231055250, 21233664, 27720, 873523211, 233280, 230400, 45360]
n = leia_inteiro
para i de 1 até n faça
  escreva a[leia_inteiro]
fim

2872 - Protocolo TCP/IP

Descrição do Problema: 2872 - Protocolo TCP/IP

Categoria: Estruturas e Bibliotecas · Olimpíada IFSULDEMINAS 2018

var n := leia_inteiro
enquanto n > 0 faça
  var lista: Lista[Texto] = []
  var linha := leia_texto
  enquanto linha <> "0" faça
    lista := linha :: lista
    linha := leia_texto
  fim
  escreva lista.ordene.junte("\n")
  escreva ""
  n := leia_inteiro
fim

2879 - Desvendando Monty Hall

Descrição do Problema: 2879 - Desvendando Monty Hall

Categoria: Iniciante · Maratona SBC (1ª fase) 2018

n = leia_inteiro
nums = leia_textos(n)
cont = nums.selecione(_ <> "1").tamanho
escreva cont

2880 - Enigma

Descrição do Problema: 2880 - Enigma

Categoria: Strings · Maratona SBC (1ª fase) 2018

mensagem, crip = leia_texto
var letras := Lista(26, Lista(0,0)).mutável
para i de 1 até crip.tamanho faça
  letras[crip[i] - 64] := (i-1) :: letras[crip[i] - 64]
fim
var posicoes := Lista(mensagem.tamanho, 1).mutável
para i de 1 até mensagem.tamanho,
     j em letras[mensagem[i] - 64] se i > j faça
            posicoes[i - j] := 0
fim
tam = mensagem.tamanho - crip.tamanho + 1
escreva posicoes.pegue(tam).injete(0)(_ + _)

2892 - Treino No Velódromo

Descrição do Problema: 2892 - Treino No Velódromo

Categoria: Matemática

def lcm(a, b: Inteiro)
  var x, y := a, b

  enquanto y > 0 faça
    x, y := y, x mod y
  fim

  retorne a div x * b
fim

def solucoes(t, m: Inteiro): Lista[Inteiro]
  var resposta : Lista[Inteiro] = []
  var i := 1

  enquanto i * i <= t faça
    se t mod i == 0 então
      var j := t div i

      se lcm(m, i) == t então
        resposta := i :: resposta
      fim

      se i <> j e lcm(m, j) == t então
        resposta := j :: resposta
      fim
    fim

    i := i + 1
  fim

  retorne resposta.ordene
fim

var entrada := leia_inteiros(" ")

enquanto entrada <> [0, 0, 0] faça
  var t, a, b := entrada[1], entrada[2], entrada[3]
  var m := lcm(a, b)

  se t mod m == 0 então
    escreva solucoes(t, m).junte(" ")
  senao
    escreva ""
  fim

  entrada := leia_inteiros(" ")
fim

2896 - Aproveite a Oferta

Descrição do Problema: 2896 - Aproveite a Oferta

Categoria: Iniciante

t = leia_inteiro
para i de 1 até t faça
  entrada = leia_inteiros(" ")
  n, k = entrada[1], entrada[2]
  g = n mod k + n div k
  escreva g
fim