Question

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

Answer 1

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