Informe um número: 6
A soma de 1 até o número informado é: 21

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

# função principal do programa
def main():
  # vamos pedir um número ao usuário
  numero = int(input("Informe um número: "))
    
  # vamos testar se o número é positivo
  # o número zero pode, mas não traz vantagem nenhuma
  if numero > -1:
    # vamos somar os números de 1 até o número informado
    soma = 0
    i = 1
    while i <= numero:
      soma = soma + i
      i = i + 1

    # vamos mostrar a soma
    print("A soma de 1 até o número informado é: {0}".format( 
      soma))
  else:
    print("Você deve informar um número positivo.")

if __name__== "__main__":
  main()

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

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

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

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses
    Dim montante As Double = principal * (1 + (taxa * meses))

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)
    Console.WriteLine("O montante a ser pago é: " & montante)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17

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

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' vamos calcular o sucessor do número informado
    Dim sucessor As Integer = numero + 1

    ' vamos calcular o antecessor do número informado
    Dim antecessor As Integer = numero - 1

    ' e agora mostramos os resultados
    Console.WriteLine("O número informado foi: {0}", numero)
    Console.WriteLine("O antecessor é {0}", antecessor)
    Console.WriteLine("O sucessor é: {0}", sucessor)

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

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

procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, c: Real;
begin
  c := 36.056; // medida da hipotenusa
  b := 30; // medida do cateto adjascente

  // agora vamos calcular o comprimento da cateto oposto
  a := sqrt(sqr(c) - sqr(b));

  // e mostramos o resultado
  Edit1.Text := 'A medida do cateto oposto é: ' +
    FloatToStr(a);
end;

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

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // cria e inicializa um array de strings
      string[] cidades = {"Goiânia", "São Paulo",
        "Rio de Janeiro", "Curitiba"};

      Console.WriteLine("Ordem original:");
      for (int i = 0; i < cidades.Length; i++) {
        Console.WriteLine(cidades[i]);
      }

      // vamos criar um objeto da classe StringComparer
      StringComparer ordenar = StringComparer.CurrentCultureIgnoreCase;

      // agora classificamos o vetor em ordem alfabética
      Array.Sort(cidades, ordenar);

      Console.WriteLine();
      Console.WriteLine("Ordem alfabética:");
      for (int i = 0; i < cidades.Length; i++) {
        Console.WriteLine(cidades[i]);
      }

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
 
#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int valor = 4;

  switch(valor){
    case 0:
      printf("Valor e igual a 0");
      break;
    case 1:
      printf("Valor e igual a 1");
      break;
    case 2:
      printf("Valor é igual a 2");
      break;
    default:
      printf("Nenhuma das anteriores");
  }

  printf("\n\n");
  system("PAUSE");
  return 0;
}