Пуск..........................
var A,B,C,X:boolean;
begin
writeln('A':6,'B':6,'C':6,'X':6);
for A:= false to true do begin
for B:= false to true do begin
for C:= false to true do begin
X:= (A or not(B))or not(not(A) or C);
writeln(A:6,B:6,C:6,X:6);end;end;end;<span>end.</span>
Ответ:
16
Объяснение:
С 61 по 64 - 4 процента щупалец
При условии, что каждое щупальце занимает 4%(так получается наименьшее допустимое кол-во щупалец) мы получим, что их 25.
Где на 60% идёт 60/4=15 щупальце.
А на 64 заканчивается 16.
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
На один символ (букву) необходим 1 байт информации или 8 бит.