_МНОГО_БАЛЛОВ_ЗА_ЗАДАЧУ_ 11 класс - 1. Распечатать все целые числа, делящиеся на 7 из интервала [1000;2000]
Var i:integer; begin for i:=1000 to 2000 do if i mod 7 = 0 then write(i,' '); writeln; end. Результат (не весь, а только начало и конец): 1001 1008 1015 ... 1981 1988 1995