segunda-feira, novembro 09, 2015

LP - Soma de 10 números com a estrutura de Loop While - Pascal

Program loop;
var soma,cont,num:integer;

Begin
  cont:=1;
  soma:=0;
  while cont <> 11 do
    Begin
       writeln('Rodando ',cont,' vezes de 10');
       write(' Digite um número...: ');
       read(num);
       soma:=soma+num;
       cont:=cont+1;
    end;
    Writeln('A soma dos 10 números é ',soma);
End.

Nenhum comentário:

Postar um comentário