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

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

Question

Пашуня

20 января, 19:58

+4

Ответы (1)

Знаете ответ?

Ола · Answer 1

Var

i:integer;

begin

i:=100;

while (i+7<200) do begin

inc (i, 7) ;

write (i,' ') ;

end;

end.