O aprendizado é como o horizonte, não há limites.
Este Blog tem fins pedagógicos voltados a área de Informática.
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