Informe a quantidade de galinhas: 8
Informe a quantidade de vacas: 3
Informe a quantidade de porcos: 11
Quantidade de animais: 22
Quantidade de patas: 72

algoritmo "Desafio da fazenda em VisuAlg"

var
  // variáveis usadas na resolução do problema
  quant_galinhas, quant_vacas, quant_porcos: inteiro
  quant_total_animais, quant_patas_total: inteiro
  
inicio
  // vamos ler a quantidade de cada animal
  escreva("Informe a quantidade de galinhas: ")
  leia(quant_galinhas)
  escreva("Informe a quantidade de vacas: ")
  leia(quant_vacas)
  escreva("Informe a quantidade de porcos: ")
  leia(quant_porcos)

  // vamos calcular a quantidade de animais
  quant_total_animais <- quant_galinhas + quant_vacas + quant_porcos
  escreval("Quantidade de animais: ", quant_total_animais)

  // vamos calcular a quantidade de patas
  quant_patas_total <- quant_galinhas * 2
  quant_patas_total <- quant_patas_total + (quant_vacas * 4)
  quant_patas_total <- quant_patas_total + (quant_porcos * 4)
  escreval("Quantidade de patas: ", quant_patas_total)

fimalgoritmo

using System;

namespace Estudos{
  class Program{
    static void Main(string[] args) {
      for (; ; ) {
        Console.Write("Digite um número inteiro " +
          "(-1 para sair): ");
        int valor = int.Parse(Console.ReadLine());

        // testa se o valor lido é -1. Se for pára
        // o laço
        if (valor == -1)
          break;

        // exibe o valor lido
        Console.WriteLine("Valor lido: {0}", valor);
      }

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos declarar e construir uma matriz de três linhas
    ' e três colunas
    Dim matriz(2, 2) As Integer
    ' guarda a soma dos elementos na diagonal principal
    Dim soma_diagonal As Integer = 0

    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        Console.Write("Informe o valor para a linha " & i & " e coluna " _
          & j & ": ")
        ' lê o número e guarda na linha e coluna especificadas
        matriz(i, j) = Integer.Parse(Console.ReadLine())
      Next
    Next

    ' vamos mostrar a matriz da forma que ela foi informada
    Console.WriteLine(vbCrLf & "Valores na matriz: " & vbCrLf)

    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        Console.Write(matriz(i, j).ToString().PadLeft(5) & "  ")
      Next
      ' passa para a próxima linha
      Console.WriteLine()
    Next

    ' vamos calcular a soma dos elementos da diagonal   
    ' principal
    For i As Integer = 0 To matriz.GetUpperBound(0)
      For j As Integer = 0 To matriz.GetUpperBound(1)
        If i = j Then
          soma_diagonal = soma_diagonal + matriz(i, j)
        End If
      Next
    Next

    ' finalmente mostramos a soma da diagonal principal
    Console.WriteLine(vbCrLf & "A soma dos elementos da diagonal principal é: " _
      & soma_diagonal)

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module

Informe o valor para a linha 0 e coluna 0: 3
Informe o valor para a linha 0 e coluna 1: 7
Informe o valor para a linha 0 e coluna 2: 9
Informe o valor para a linha 1 e coluna 0: 2
Informe o valor para a linha 1 e coluna 1: 4
Informe o valor para a linha 1 e coluna 2: 1
Informe o valor para a linha 2 e coluna 0: 5
Informe o valor para a linha 2 e coluna 1: 6
Informe o valor para a linha 2 e coluna 2: 8

   3   7   9
   2   4   1
   5   6   8

A soma dos elementos da diagonal principal é: 15

 
public class Estudos{
  public static void main(String[] args){
    String frase = "Programar em Java é muito bom";
     
    // Lembre-se: o indice começa em 0
    char letra = frase.charAt(2);
     
    System.out.println("O caractere no índice 2 é: " +
      letra);
     
    System.exit(0);
  }
}