Таблица истинности во вложении. Конечно, их нужно уметь составлять, но зачастую бывает быстрее предварительно сделать аналитическое преобразование исходного выражения с целью его упрощения.
Как видно, выражение не зависит от В и его таблицу истинности строить гораздо проще.
I = 165: 33=5
N= 2^5= 32 ( 2 в пятой степени, если не понятно )
Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
Ответ:1)Жесткий диск, 2)Процессор
Объяснение:Думаю правильно
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.