Прошу прощения, но где рисунки и фигуры?
Длина слова - 4 символа.
находим так:
256 =
- количество слов
8 бит - вес одного слова
делим вес целого слова на вес одного символа
8/2=4 символа
1) a*(a+b+c) = aa+ab+ac = a+ab+ac = a(1 + b + c) = a * 1 = a
2) a*b + ¬b + ¬a*b = b(a + ¬a) + ¬b = b * 1 + ¬b = b + ¬b =1
3) (¬a + b) * ¬c * (c + a * ¬b) = (¬a + b) * (¬c*c + a¬b¬c) =
(¬a + b) * a¬b¬c = ¬aa¬b¬c + ba¬b¬c = 0 + 0 = 0
4) (a+b)*(¬a+b)*(¬a + ¬b) = (¬aa+ab+¬ab+b)*(¬a + ¬b) =
(ab + ¬ab + b)*(¬a + ¬b) = b(a + ¬a + 1)*(¬a + ¬b) = b*(¬a + ¬b) =
¬ab + ¬bb = ¬ab
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.