program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write ('введите инверсию p-'); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write ('ламп горит -', s); readlnend.
Ответ дал: Гость
-всех планов
-планов , на которых ровно 4 хода
- планов на которых есть ход к коту
-планов на которых не 4 хода
-планов на которых нет ходов к коту
-планов на которых 4 хода и есть ход к коту
- планов на которых 4 хода и нет ходов к коту
на пересечении круга и квадрата - мауси и котауси
в квадрате - джек
в круге - ник
в прямоугольнике - пухлик
ответ на вопрос: план джека
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Для хранения информации используют … процессор долговременную память монитор...
Популярные вопросы