В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм для определения номеров выпавших шаров.Цикл с предусловием. На языке паскаль.
В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм для определения номеров выпавших шаров.
Цикл с предусловием. На языке паскаль.
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
Не нашли ответ?
Похожие вопросы