soma de um intervalo

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.658 ]

Download exemplo13.pas




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

  



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.

Scripts recomendados

maior elemento de uma matriz

Conjuntos

Existência de triângulo, em Pascal

Matrizes

controle de notas de uma clase com vetor e registro


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts