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

Question

Пашуха

29 января, 10:37

+1

Ответы (1)

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

Кируся · Answer 1

Var

i:integer;

begin

i:=100;

while (i+7<200) do begin

inc (i, 7) ;

write (i,' ') ;

end;

end.