1600

Faixa de problemas: 1600-1699

Total: 10 problemas

1607 - Avance as Letras

Descrição do Problema: 1607 - Avance as Letras

t = leia_inteiro
para i de 1 até t faça
  lista = leia_textos(" ")
  var total := 0
  tm = lista[1].tamanho
  para j de 1 até tm faça
    tmp1, tmp2 = lista[1][j].inteiro, lista[2][j].inteiro
    se tmp2 > tmp1 então
      total := total + (tmp2 - tmp1)
    senaose tmp1 > tmp2 então
      total := total + (26 - (tmp1 - tmp2))
    fim
  fim
  escreva total
fim

1609 - Contando Carneirinhos

Descrição do Problema: 1609 - Contando Carneirinhos

t = leia_inteiro
para i de 1 até t faça
  n = leia_inteiro
  l = leia_inteiros(" ")
  escreva l.ordene.divida_quando(_ <> _).tamanho
fim

1618 - Colisão

Descrição do Problema: 1618 - Colisão

n = leia_inteiro
para i de 1 até n faça
  entrada = leia_inteiros(" ")
  a = entrada.pegue(2)
  c = entrada.descarte(4).pegue(2)
  r = entrada.descarte(8).pegue(2)

  resposta =
    se a[1] <= r[1] e a[2] <= r[2] e c[1] >= r[1] e [2] >= r[2]
    então 1 senão 0 fim
  escreva resposta
fim

1622 - Lâmpadas

Descrição do Problema: 1622 - Lâmpadas

var a := leia_inteiros(" ")
enquanto a <> [0, 0] faça
  n, q = a[1], a[2]
  L = leia_texto.lista.mapeie(_ <> 0)
  para i de 1 até q faça
    var l := L
    b = leia_inteiros(" ")
    var k, m := b[1], b[2]
    var p := 0
    m := m mod (2 * n)
    enquanto m > 0 faça
      l[p+1] := não l[p+1]
      p := (p + k) mod n
      m := m - 1
    fim
    escreva l.mapeie(se _ então 'x' senão 'o' fim).junte("")
  fim
  a := leia_inteiros(" ")
fim

1630 - Estacas

Descrição do Problema: 1630 - Estacas

mdc(x, y: Inteiro): Inteiro =
  se x > y entao mdc(x mod y, y)
  senaose x == 0 entao y
  senao mdc(y mod x, x) fim

var a := leia_texto
enquanto a <> nulo faca
  b = a.divida(" ").mapeie(_.inteiro)
  x, y = b[1], b[2]
  m = mdc(x, y)
  escreva 2 * (x+y) div m
  a := leia_texto
fim

1632 - Variações

Descrição do Problema: 1632 - Variações

t = leia_inteiro
para i de 1 até t faça
  s = leia_texto.minusculo
  m = s.lista
       .mapeie(c => se "aeios".contém(c) então 3 senão 2 fim)
       .injete(1)(_ * _)
  escreva m
fim

1641 - Restaurante e Pizzaria do Alfredo

Descrição do Problema: 1641 - Restaurante e Pizzaria do Alfredo

var pizza := 0

var entrada := leia_texto
enquanto entrada <> "0" faça
  dados = entrada.divida(" ").mapeie(_.inteiro)
  r, w, l = dados[1], dados[2], dados[3]
  pizza := pizza + 1
  se 4 * r*r >= w*w + l*l então
    escreva "Pizza {pizza} fits on the table."
  senão
    escreva "Pizza {pizza} does not fit on the table."
  fim
  entrada := leia_texto
fim

1647 - Um Jogo com Bolas de Gude

Descrição do Problema: 1647 - Um Jogo com Bolas de Gude

var flag := verdadeiro
enquanto flag faça
    n = leia_inteiro
    se n == 0 então
        flag := falso
    senão
        var valores := leia_texto.divida(" ").mapeie(x => BigInt(x))
        para i de n-1 até 1 passo -1,
             j de n até i+1 passo -1 faça
                valores[i] := valores[i] + valores[j]
        fim
        escreva valores.injete((a, b: BigInt) => a + b)  
    fim
fim

1650 - Pintura Preto e Branco

Descrição do Problema: 1650 - Pintura Preto e Branco

var entrada := leia_inteiros(" ")
enquanto entrada[1] > 0 faça
  n, m, c = entrada[1], entrada[2], entrada[3]
  escreva ((n - 7) * (m - 7) + c) div 2
  entrada := leia_inteiros(" ")
fim

1690 - Soma de Sobconjuntos

Descrição do Problema: 1690 - Soma de Sobconjuntos

t = leia_inteiro
para i de 1 até t faça
  n = leia_inteiro
  var num := leia_textos(" ").mapeie(a => BigInt(a)).ordene.mutável
  var soma, i := BigInt(1), 1
  enquanto i <= n e soma >= num[i] faça
    soma := soma + num[i]
    i := i + 1
  fim
  escreva soma
fim