Program Massiv;
Uses Crt;
const n=10 {размер массива}
var i,k:integer;
a:array[1..n] of integer;
begin
clrscr;
write('Введите элементы массива:' );
k:=1
for i:=1 to n do
begin
readln (a[i]);
if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];
end;
writeln;
write('Исходный массив:')
for i:=1 to n do write(a[i]:3);
writeln;
writeln('Произведение отрицательных элементов кратных 7:',k);
readkey;
end.
Начнём с АВсё просто, нам нужно помнить только две вещи, первая, это то, что у нас всего две цифры, 0 и 1. А вторая, это то, что всё можно решить сложением в столбик)Почему я вспомнил про кол-во цифер, а к тому, что:0 + 0 = 00 + 1 = 11 + 1 = 2 - так не получится) Максимальное число у нас это 1Что же тогда делать?!А вот что, просто перенести на разряд выше, как мы это делали в десятичной системе счислений.Если ты сложишь 1 + 9, у тебя получится 10, то есть ты увеличила разряд второй. Тут так же, следовательно:1 + 1 = 10Проще это понять в столбик: 1
1
---
10
Надеюсь что теперь понятнее не куда)
Вернемся к БУ нас было число для буквы А 1010, для буквы Б 1011И нужно было сложить 1011 и 1, давай сложим в столбик: . .1011 11100Смотрим справа на лево 1 + 1 = 10, ноль записали, разряд перенесли выше, там теперь тоже 1 + 1 = 10, снова записали 0 и разряд перенесли выше, 0 + 1 = 1, записали 1, осталась 1 единица, её просто сносим в низ, так и получается 1100ответ: С = 1100