Составить блок-схему по
приведенной ниже программе:
var a, answer: integer;
begin
answer:=0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a > 99) and
(a <1000) then
answer := answer + 1;
readln(a); end;
writeln(answer);
end
2. Чему будет равна
переменная К после
выполнения алгоритма
представленного следующей
блок-схемой, если ввести
n=1235? Составить таблицу

Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок

574+467=1263 (все числа в восьмиричной системе счисления)

так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1  в уме, далее просто приписываем единицу, получаем 1263

P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик

Объяснение:

1)

столбцы: 1)а 2) b 3)с 4)¬a 5)¬A˄ B  6)F = ( ¬A˄ B ) ˅C

0  0  0  1  0  0

0  0  1  1  0  1

0  1  0  1  1  1

0  1  1  1  1  1

1   0 0 0 0 0

1  0  1  0  0  1

1   1  0 0  0 0

1  1  1  0  0  1

2) столбцы: 1)а 2) b 3)с 4)¬b 5)¬c  6)¬b∧¬c 7)b∨¬b∧¬c 8)F

0 0 0   1   1   1   1   0

0 0  1   1  0  0  0  0

0  1  0  0 1   0   1   0

0  1  1   0  0  0   1   0

1  0  0  1   1    1    1  1

1   0  1   1  0  0  0 0

1    1  0  0  1   0  1   1

1   1    1   0  0  0  1    1

3) 1)a 2)b 3)¬a  4)¬a∧b 5)¬a∧b∨a  6)¬a∧b∨a∨b 7) F=¬a∧b∨a∨b∨a

0 0  1  0  0  0  0

0  1  1  1   1   1   1

1   0 0 0  1   1   1

1   1  0 0  1   1   1