Informe o raio da esfera: 3.5
O volume da esfera é: 179,5944
A área da esfera é: 153,9380

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

package estudos;

import java.text.DecimalFormat;
import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    // para ler a entrada do usuário
    Scanner entrada = new Scanner(System.in);
    
    // para formatar com quatro casas decimais
    DecimalFormat formato = new DecimalFormat("0.0000");
    
    // vamos pedir para o usuário informar o raio da esfera
    System.out.print("Informe o raio da esfera: ");
    double raio = Double.parseDouble(entrada.nextLine());
    
    // vamos calcular o volume da esfera
    double volume = (4 * Math.PI * Math.pow(raio, 3)) / 3.0;
    
    // agora vamos calcular a área da esfera
    double area = 4 * Math.PI * Math.pow(raio, 2);
    
    // e mostramos os resultados
    System.out.println("O volume da esfera é: " + 
      formato.format(volume));
    System.out.println("A área da esfera é: " + 
      formato.format(area));
  }
}

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// função personalizada que permite calcular o MDC de dois
// valores inteiros
function MDC(a, b: Integer): Integer;
var
  resto: Integer;
begin
  while b <> 0 do
    begin
      resto := a mod b;
      a := b;
      b := resto;
    end;

  Result := a;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  x, y: Integer;
begin
  x := StrToInt(Dialogs.InputBox('MDC',
    'Informe o primeiro valor:', ''));
  y := StrToInt(Dialogs.InputBox('MDC',
    'Informe o segundo valor:', ''));

  // vamos mostrar o resultado
  ShowMessage('O Máximo Divisor Comum de ' + IntToStr(x) +
    ' e ' + IntToStr(y) + ' é ' + IntToStr(MDC(x, y)));
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

from datetime import datetime
import locale

# função principal do programa
def main():
  # Configurações do usuário
  locale.setlocale(locale.LC_ALL, '')
 
  # Obtém um datatime da data e hora atual
  hoje = datetime.today()
 
  # Exibe o nome do dia da semana no formato
  # longo
  print("O dia da semana é:", hoje.strftime("%A"))
 
if __name__== "__main__":
  main()

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

C:\Users\samsung>composer
...
  why-not              Shows which packages prevent
the given package from being installed.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Changed current directory to 
C:/Users/samsung/AppData/Roaming/Composer
Using version ^3.1 for laravel/installer
...
Writing lock file
Generating autoload files
8 packages you are using are looking for funding.
Use the `composer fund` command to find out more!

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

C:\Users\samsung>cd c:\estudos_laravel
c:\estudos_laravel>laravel new cadastroclientes

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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

  // obtém o número da linha atual usando a propriedade
  // RecNo da classe TDataSet
  linha := grid.DataSource.DataSet.RecNo;

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

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

(
  ; vamos declarar a variável que vamos usar
  let (numero)	
  ; vamos inicializar a variável com o valor 1
  (setq numero 1)
  ; agora iniciamos o laço
  (loop 
    ; escrevemos o valor da variável
    (write numero)
    ; aumentamos o valor da variável em 1
    (setq numero (+ numero 1))
    ; provocamos uma quebra de linha 
    (terpri)
    ; e fazemos o teste da continuidade
    (when (> numero 10) (return))
  )
)