soma de um intervalo

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.650 ]

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

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

encontrar o menor valor em um vetor

Maior numero do Vetor

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

jogo bobo testando com case


  

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