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: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
1|0
0|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
0|1
1996₁₀=11111001100
100.1010.11111001100
Ответ дал: Гость
налить в 9-литровое 9 литров
отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое
налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров
Популярные вопросы