//Pascal ABC.NET v3.1 сборка 1219
Const n=7;
Var
ar:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
readln(ar[i]);
if ar[i] mod n<>0 then k:=k+1;
end;
writeln('Res:',k);
end.
Пример ввода:
1
2
3
4
5
6
7
Пример вывода:
Res: 6
Если перегорят все вертикальные секторы, то цифры 5 и 8 будут выглядеть одинаково (см. рисунок). Все оствльные можно будет однозначно определить.
ОТвет: В) 8
А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
Заключить фразу в кавычки.