создать проект

20.12.2010, 19:22. **Показов** 1145. **Ответов** 1

даны натуральные числа n а1....аn. найти те члены а1 последовательности а1....аn которые при делении на 7 дают отстаток 1,2 или 5.

@John_Pa9JIbHuK · 20.12.2010, 20:50

Delphi

1
2
3

for i := 1 to n do
  if a[i] mod 7 in [1..2, 5] then 
    writeln(a[i]);

женя46
		1
	создать проект 20.12.2010, 19:22. Показов 1145. Ответов 1 Метки нет (Все метки) даны натуральные числа n а1....аn. найти те члены а1 последовательности а1....аn которые при делении на 7 дают отстаток 1,2 или 5.

	20.12.2010, 20:50

Опции темы

Решение