Практическая работа в PascalABC с циклом For

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №  3 ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ    (продолжение) 3. ЦИКЛ С ЗАДАННЫМ ПАРАМЕТРОМ      (ДЛЯ) Применяется, если известно сколько раз требуется выполнить тело цикла.   FOR <параметр цикла> := <выражение1> TO <выражение2> DO <оператор> [ DOWNTO ]   for ­    (фо) ­ для;                     to ­ (ту) ­ до; {  шаг=1  };   downto ­ (даунту) ­ вниз до; { шаг=­1  };   do ­ (ду) ­ выполнить;   параметр цикла ­ переменная любого скалярного типа, кроме вещественного         (управляющая переменная) ;   выражение1 ­ скалярное выражение  ­  начальное значение параметра цикла;   выражение2 ­ скалярное выражение  ­  конечное  значение параметра цикла;   оператор   ­ тело цикла; Напечатать числа от 1 до 20. Program Chisla;    var i:integer;                    { управляющая (параметр) цикла } Begin      for i:=1 to 20 do write(i,' '); End. { 1 ­начальное значение параметра } { 20 ­конечное значение параметра } { write(i,' ') ­тело цикла } После каждого выполнения тела цикла параметр i увеличивается на 1. Напечатать числа от 20 до 1. Program Chisla;    var i:integer; Begin      for i:=20 downto 1 do write(i,' ') End. После каждого выполнения тела цикла параметр i увеличивается на ­1. Найти произведение чисел делящихся на 2 от 10 до 20. Program Mult;    var x:integer; P:real; Begin   p:=1;                  { начальное значение произведения }   for x:=10 to 20 do     if x mod 2=0 then p:=p*x;   write('Произведение чисел, делящихся на 2 от 10 до 40 равно P=',p) End. З А Д А Н И Я: 1. Вычислить сумму чисел из промежутка [1;1000]. 2. Вывести на экран 56 символов & . 3. Получить на экране значения функции Y=SIN X,    где x берется из промежутка [25;45] и измеряется в градусах. 4. Вывести на экран все числа, делящиеся на 13,  от 1 до 100.5. Вывести на экран все числа от 500 до 300. 6. Найти значение дроби: в числителе ­ сумма чисел от 1 до 100 делящихся на 7,  а в знаменателе ­ сумма чисел от 100 до 500, делящихся на 17.