Найдем первое число из данного диапазона, кратное семи.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
<u><em>Тестовое решение:</em></u>
S=2107
Микрофон - вывод звука с возможностью его массового прослушивания.
АЦП - преобразование аналогового сигнала в двоичный код.
Акустическая система - вывод звука с возможностью его массового прослушивания.
ЦАП - преобразование оцифрованного звука в аналоговый сигнал.
Стереонаушники - вывод звука для прослушивания отдельным человеком.
Звуковая система - ввод звука на компьютер.
Program n1;
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.