Question

Написать 3 программы. Каждая программа должна подсчитывать сумму чисел от 10 до 20. Одна программа должна быть сделана через цикл While, вторая - через цикл Repeat, третья - через цикл For.

Answer 1

Через WHILE:

var s,i: integer;

begin

i:=10;

while (i<=20) do  

begin  

s:=s+i;

i:=i+1;

end;

write('Сумма чисел от 10 до 20 равна ',s);

end.

Через REPEAT:

var s,i: integer;

begin

i:=10;

repeat

begin  

s:=s+i;

i:=i+1;

end;

until (i>20);

write('Сумма чисел от 10 до 20 равна ',s);

end.

Через FOR:

var s,i: integer;

begin

for i:=10 to 20 do s:=s+i;

write('Сумма чисел от 10 до 20 равна ',s);

end.