Имеется ряд из n лампочек, которые пронумерованы от 1 до n. изначально ни одна из лампочек не горит. далее происходит k последовательных линейных инверсий этого ряда ламп. под линейной инверсией понимается инверсия каждой p-йлампочки в ряде. например, если p=3, то произойдет инверсия 3й, 6й, 9й и т. д. лампочек. требуется определить: сколько горящих лампочек останется после реализации всех заданных линейных инверсий? написать рабочую прогу напаскале

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.

ответ: в) Сообщение об ошибке.

Объяснение:

'Е' означает символ E. Так как i - счетчик, можно сказать так: программа проходит по каждому символу строки s до тех пор, пока не встретит символ 'E' (s[i] — это i-ый символ строки s). Так как исходные данные (25.34), которые командой Str(c, s) переводятся в строковой тип и записываются в переменную s, не содержат символ E, то после прохода по всем символам строки s, индекс выйдет за границу строки, и компилятор выдаст ошибку об этом.

Если же заменить в программе 'E' на, скажем, '.', то программа выведет сумму всех цифр до плавающей точки. Или же можно указать цифру — тогда программа выведет сумму всех цифр до указанной цифры.

Пример работы:

a – число десятков тысяч (первая цифра): n // 10000

b – число тысяч (вторая цифра): n % 10000 // 1000

c – число сотен (третья цифра): n % 1000 // 100

d – число десятков (четвертая цифра): n % 100 // 10

e – число единиц (пятая цифра):  n % 10

Объяснение:

n % - оставляет k знаков.

n // - оставляет все начиная с k+1 знака

n % 10 - остаток от деления на 10. Например: 12345 % 10 = 5

n % 100 // 10 - результат целочисленного деления на 10 остатка от деления на 100. Например: 12345 % 100 = 45; 45 // 10 = 4

n % 1000 // 100  - результат целочисленного деления на 100 остатка от деления на 1000. Например: 12345 % 1000 = 345; 345// 100 = 3

============              

Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"      

Бодрого настроения и добра!    

Успехов в учебе!