Домашняя работа с16-20 марта параграф 17

1) пример 17.1 в учебнике
набрать на компьютере и менять значения( как на уроке)
uses GraphABC;
var x, y, 
 r: integer;
begin
 r := 10;
 x := 10; y := 10;
while x < 640 do
begin
 Circle(x, y, r);
 x := x + 20;
end;
end.  
2)Набрать на компьютере, выписать в тетрадь задачу и ответы 


Составьте программу к задаче: 
Подсчитать сумму чисел от 100 до 200 и вывести только результат 
var i, n, sum : integer; 
begin 
Sum:=0;

for i:= 100 to 200  do 
 sum:=sum+i; 
writeln('Sum =',sum); 
end. 



Проанализируйте результат и ответьте на вопросы 
Сколько раз выполниться цикл?_________ 
Начальное значение счетчика равно________ 
Конечное значение счетчика равно_________ 
Что будет выводиться в конце этой программы_____ 
Сколько операторов в теле цикла? __________ 
Что будет выводиться в конце программы внизу____ 

var i, n, sum : integer; 
begin 
Sum:=0; 
for i:= 100 to 200  do 
begin 
 sum:=sum+i; 
writeln('Sum =',sum); 
end 
end.