Programa para efetuar a soma de todos os números em um determinado intervalo

• Download exemplo13.pas
• Enviar nova versão

Esconder código-fonte

program exemplo;
{Programa para efetuar a soma de todos os números em um determinado intervalo}

uses crt;
var x,i,f,a : integer;

begin
  clrscr;

  write('Digite um numero-----------------------> ');
  readln(i);
  write('Digite um numero maior que o primeiro--> ');
  readln(f);
  for x := i to f do begin
    write(x,'+')
  end;
  readln;

  for x := i to f do begin
    a:=a+x;
  end;
  write('A soma dos numeros acima SÆo:  ');
  writeln(a);
  readkey;
end.

maior elemento de uma matriz

Matriz simétrica

média dos numeros informados em posiçoes pares em um vetor

Coleta de dados de alunos em Pascal

Calculo de la Moda

Nenhum comentário foi encontrado.