Question

criar um algoritmo em pascal que imprima todos os números de 1 ate 100, inclusive, e a soma de todos eles.

Answer 1

program Soma_dos_Cem;
uses Crt;
var
   contador, i : integer;
begin
   for i := 1 to 100 do begin
      contador := contador + i;
      writeln(i);
   end;
   write('Soma: ',contador);
   readln();
end.