Это же двоичная система, правильно?
Получается, 1+1 = 10, а 1+1+1=11. Следовательно,
111+101 = 1100
1*2⁶+0*2⁵+1*2⁴+0*2³+1*2²+0*2¹+1*2⁰= 64+0+16+0+4+0+1=85
1010101₂=85₁₀
Ответ: 85
1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.