procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
begin
  // obtém um referência ao DBGrid
  grid := sender as TDBGrid;

  // o número da coluna é par?
  if Odd(DataCol) then
    grid.Canvas.Brush.Color := clWhite
  else
    grid.Canvas.Brush.Color := clYellow;

  // vamos terminar de colorir a célula
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Informe a quantidade de produtos vendidos: 950
O lucro da empresa foi: R$ 4500.0

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    int quant_produtos_vendidos;
    double lucro;
    
    // para ler a entrada do usuário
    Scanner entrada = new Scanner(System.in);
    
    // vamos pedir a quantidade de produtos vendidos
    System.out.print("Informe a quantidade de produtos vendidos: ");
    quant_produtos_vendidos = Integer.parseInt(entrada.nextLine());
    
    // vamos calcular o lucro da empresa
    lucro = (10 * quant_produtos_vendidos) - 5000;
    
    // e mostramos o resultado
    System.out.println("O lucro da empresa foi: R$ " + lucro);
  }
}

package estudos;

public class Estudos{
  public static void main(String[] args){
    // vamos criar uma string
    String frase = "Gosto de programar em Java";
    
    // vamos testas se a string contém a letra "k"
    int pos = frase.indexOf('k');
    
    if(pos < 0){
      System.out.println("A string não contém a letra k");
    }
    else{
      System.out.println("A letra k foi encontrada na posicao: " + pos);
    }
     
    // fecha o programa
    System.exit(0);
  }
} 

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      string frase = "Gosto de C#";
      Console.WriteLine("Frase original: " + frase);

      // obtém um array de caracteres a partir da string
      char[] letras = frase.ToCharArray();
      Array.Reverse(letras); // inverte o array

      // transforma em string novamente
      string resultado = new String(letras);
      Console.WriteLine("Frase invertida: " + resultado);

      Console.WriteLine();
    }
  }
}

# nome e caminho do diretório a ser testado
diretorio = "C:\\estudos_ruby\\escola"

if File.exist? diretorio
  puts "O diretório existe"
else
  puts "O diretório não existe"
end