soma de um intervalo

Publicado por NewLinuxer 14/12/2005

[ Hits: 6.957 ]

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

Script Tabuada

Calculadora Básica

mostrar a meior e a menor temperatura do ano com vetor

calculo da somatoria da diagonal principal

Calculo de la Moda


  

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