Question

написать программу для вычисления суммы натуральных чисел от 1 до 10.тремя разными циклами (repeat ;while ;for n) на Pascal

Answer 1

var i,j,k,s:integer;

Begin

j:=0;

for i:=1 to 10 do

j:=j+i;

writeln('Циклом for=',j);

j:=0;

i:=0;

while i<10 do begin

i:=i+1;

j:=j+i; end;

writeln('Циклом while=',j);

j:=0;

i:=0;

repeat

i:=i+1;

j:=j+i;

until i=10;

writeln('Циклом until=',j);

end.