<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
<span>Program sacha;</span>
var s:real;
begin
read(s);
write(Abs(a * 10))
end.
ПОздно наверно, но всё равно, ответ будет: ДА, там после всех преобразований остаётся одна дизъюнкция, и вот такое присутствует(не В v B) =1 (оно всегда истинно), а раз одно мтстинно значит и всё истинно. Таблица в приложении.
вот такая вот таблица истинности и схема