Найдем первое число из данного диапазона, кратное семи.
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
Просыпаюсь >потягиваюсь >встаю с кровати>иду чистить зубы>одеваюсь>обуваюсь >иду до школы и тд.
Case - разветвление, выбор из нескольких элементов или даже промежутков
And - логическая операция аналогичная коньюнкции
Or - логическая операция аналогичная дизьюнкции
ClrScr - clear screen, т.е. очистить экран
var
n:integer;
begin
readln(n);
case n mod 12 of
4:writeln('год крысы');
5:writeln('год коровы');
6:writeln('год тигра');
7:writeln('год зайца');
8:writeln('год дракона');
9:writeln('год змеи');
10:writeln('год лошади');
11:writeln('год овцы');
0:writeln('год обезьяны');
1:writeln('год петуха');
2:writeln('год собаки');
3:writeln('год свиньи');
end;
end.