Паскаль:
Найти сумму и количество всех трехзначных чисел, кратных 100

var i,k,sum:Integer; Begin  for i:=1 to 999 do   begin    if (i mod 100 =0) then     begin      Inc(k);      sum:=sum+i;     end;  end;  Writeln('Количество = ',k);  Writeln('Сумма  = ',sum);  end.