# Veja o uso do método to_i para converter um string
# em um valor inteiro válido

print "Informe o primeiro número: "
num1 = (gets.chomp).to_i
print "Informe o segundo número: "
num2 = (gets.chomp).to_i

# Exibe o resultado
puts "A soma dos valores é: #{num1 + num2}"

def main():
  string = "49380"
 
  if string.isdigit():
    print("A string contém apenas números")
  else:
    print("A string não contém somente números")
 
if __name__== "__main__":
  main()

Informe um número binário: 1011001
O complemento de 1 é: 0100110

package estudos;

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);
    
    // vamos solicitar um número binário
    System.out.print("Informe um número binário: ");
    String binario = entrada.nextLine();
    
    // vamos converter a string em um arrays de chars
    char digitos[] = binario.toCharArray();
    
    // agora percorremos todos os dígitos do número binário
    // e trocamos os "0s" por "1s" e vice-versa
    for(int i = 0; i < digitos.length; i++){
      if(digitos[i] == '0'){
        digitos[i] = '1';
      }
      else{
        digitos[i] = '0';
      }
    }
    
    // convertemos de novo para string
    String complemento1 = String.valueOf(digitos);
    
    // e mostramos o resultado
    System.out.println("O complemento de 1 é: " + complemento1);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  principal, taxa, juros, montante: double;
  meses: integer;
begin
  principal := 2000.00;
  taxa := 0.03;
  meses := 3;

  montante := principal * power((1 + taxa), meses);
  juros := montante - principal;

  ShowMessage('O total de juros a ser pago é: '
    + FloatToStr(juros));
  ShowMessage('O montante a ser pago é: '
    + FloatToStr(montante));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  principal, taxa, juros, montante, anterior: double;
  i, meses: integer;
begin
  principal := 2000.00;
  taxa := 0.03;
  meses := 3;
  anterior := 0.0;

  for i := 1 to meses do
    begin
      montante := principal * power((1 + taxa), i);
      juros := montante - principal - anterior;

      anterior := anterior + juros;

      Memo1.Lines.Add('Mês: ' + IntToStr(i) + ' - Montante: '
        + FloatToStr(montante) + ' - Juros: ' + FloatToStr(juros));
    end;
end;