_МНОГО_БАЛЛОВ_ЗА_ЗАДАЧУ_ 11 класс - 1. Распечатать все целые числа, делящиеся на 7 из интервала [1000;2000]
_МНОГО_БАЛЛОВ_ЗА_ЗАДАЧУ_ 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
Не нашли ответ?
Похожие вопросы