Надо, . 1. составьте программу вычисления суммы чисел в диапазоне от 13 до 113. 13+14+15+ +113 2. составьте программу вычисления суммы чисел кратных 5 в диапазоне от 5 до 105. 3. составьте программу, которая выводит на экран числа кратные 2 и 7 в диапазоне от 2 до 120.

Var  b,i: integer; begin  for i: = 13 to 113 do    b: =b+i;   writeln('сумма чисел в диапазоне от 13 до 113 = ',b);   b: =0;   for i: = 5 to 105 do    if (i mod 5) = 0 then      b: =b+i;   writeln('сумма чисел кратных 5 в диапазоне от 5 до 105 = ',b);     b: =0;   writeln('числа кратные и 2 и 7 в диапазоне от 2 до 120  );     for i: = 2 to 120 do    if ((i mod   2) = 0) and ((i mod 7) = 0) then  write(i,' ');   end.   всё просто. если разделять на программы, то каждый новый цикл это другая программа.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

а необходимо

б достаточно

в необходимо

г достаточно

д необходимо и достаточно