Question

Составить программу, которая вычисляет сумму натуральных чисел от 1 до 100 и что бы использовались циклы repeat, while, for (Выполнить работу в Pascal

Answer 1

Видимо имелось ввиду, использовать один из циклов.
В программе сразу 3 цикла. Выбери себе один, остальные удали

var

 sum,i:integer;

begin

 sum:=0;

 for i:=1 to 100 do

   sum:=sum+i;

 writeln(sum);

//-----------------

 sum:=0;

 i:=1;

 while i<=100 do

   begin

     sum:=sum+i;

     inc(i);

   end;

 writeln(sum);

//-----------------

 sum:=0;

 i:=1;

 repeat

   sum:=sum+i;

   inc(i);

 until i>100;

 writeln(sum);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!