Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
23seo12
08.12.2021, 17:11
Информатика

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

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

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Комаров
Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc (i, 7) ;
write (i,' ') ;
end;
end.200)>