В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм для определения номеров выпавших шаров.

Цикл с предусловием. На языке паскаль.

Question

Хриса

5 декабря, 02:24

+3

Ответы (1)

Знаете ответ на вопрос?

Логвин · Answer 1

Var

i:integer;

begin

i:=100;

while (i+7<200) do begin

inc (i, 7) ;

write (i,' ') ;

end;

end.