O número gerado foi: 26
O seno do número gerado é: 0.7625584504796028
O cosseno do número gerado é: 0.6469193223286404
A tangente do número gerado é: 1.1787535542062797

O número gerado foi: 40
O seno do número gerado é: 0.7451131604793488
O cosseno do número gerado é: -0.6669380616522619
A tangente do número gerado é: -1.117214930923896

package estudos;

import java.util.Random;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    int numero_rand;
    double seno, cosseno, tangente;
    
    // vamos gerar o número aleatório na faixa 20-40
    Random rand = new Random();
    numero_rand = rand.nextInt(21) + 20;
    System.out.println("O número gerado foi: " + numero_rand);
    
    // vamos gerar o seno do número sorteado
    seno = Math.sin(numero_rand);
    System.out.println("O seno do número gerado é: " + seno);
    
    // vamos gerar o cosseno do número sorteado
    cosseno = Math.cos(numero_rand);
    System.out.println("O cosseno do número gerado é: " + cosseno);
    
    // agora a tangente do número sorteado
    tangente = Math.tan(numero_rand);
    System.out.println("A tangente do número gerado é: " + tangente);
  }
}

# função principal do programa
def main():
  # vamos solicitar os dados de entrada
  v1 = float(input("Velocidade de entrada (m/s): "))
  a1 = float(input("Área de entrada (milímetros quadrados): "))
  a2 = float(input("Área de saída (milímetros quadrados): "))
    
  # vamos converter as áreas em milímetros quadrados
  # para metros quadrados
  a1 = a1 / 1000000
  a2 = a2 / 1000000
    
  # agora calculamos a velocidade de saída
  v2 = (a1 * v1) / a2
    
  # e mostramos o resultado
  print("A velocidade de saída é: {0} m/s".format(v2))
  
if __name__== "__main__":
  main()

> x <- 10 [ENTER]
> nome <- "Osmar" [ENTER]
> pago <- TRUE [ENTER]
> y <- x + 15 [ENTER]
> x [ENTER]
[1] 10
> nome [ENTER]
[1] "Osmar"
> y [ENTER]
[1] 25
> pago [ENTER]
[1] TRUE
> 

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'Gosto muito de Delphi e Java';

  // vamos verificar se a string termina com "Java"
  if AnsiEndsStr('Java', frase) then
    ShowMessage('A frase termina com a substring indicada')
  else
    ShowMessage('A frase NÃO termina com a substring indicada')
end;

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  texto: String;
begin
  // conteúdo a ser definido para a caixa de texto
  texto := 'Veja isso';

  // vamos definir o conteúdo usando a função SendMessage
  // fornecendo a mensagem WM_SETTEXT
  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(texto)));
end;