Var
s, i : Integer;
begin
Write('Введите сумму двух чисел: ');
ReadLn(s);
if s mod 3 = 0 then
begin
i := s div 3;
Writeln('a = ', i);
Writeln('b = ', i*2);
end
else
Writeln('Таких чисел нет.');
<span>Readln;
</span>end.
Умозаключение-это мыслительная операция,состоящая в получении нового вывода из нескольких суждений
1.
x=1F4(16)=500(10);
y=<span>701(8)=449(10);
x>Z>y
Z=</span><span>111100111(2)=487(10);
2.
</span>a=10110111(2)=183(10)
<span>b=A6(16)=166(10)
</span>a>C>b
C=<span>10101010(2)=170(10)
3.
</span><span>a=11100110(2)=230(10)
</span><span>b=271(8)=185(10)
</span>a>C>b
C=<span>D6(16)=214(10)</span>
Writeln((b<a) and (b<c));