_МНОГО_БАЛЛОВ_ЗА_ЗАДАЧУ_ 11 класс
-
1. Распечатать все целые числа, делящиеся на 7 из интервала [1000;2000]

var i:integer;beginfor i:=1000 to 2000 do if i mod 7 = 0 then write(i,' ');writeln;end.Результат (не весь, а только начало и конец):1001 1008 1015 ... 1981 1988 1995