Если цепочки две, то выводится ближайшая. Пойдет?
//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
begin
readln(f, n);
if (c = 0) or (n = t) then
c := c + 1
else
c := 1;
t := n;
if c > Counts then
begin
Counts := c;
numValue := n
end
end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
writeln(f, numValue);
close(f)
end.
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
Бублічистичний, науковий, політичний, морально етичний, економічний
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.