Подставим все значения и получим
1->(1 + 0) = 1
Ответ: 1
Если знаки расставлены правильно, то
1) 1&1=1
2) 1&0=0
3) 0&0 =0
4) 0&0=0
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
Фотоаппаратом или же телефоном, так же можно планшетом, вебкамерой, видео-регистратором, и ещё что-то но я не помню как называется.