//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var x:=ReadlnInteger('Введите x');
var y:=ReadlnInteger('Введите y');
writeln(max((x+y),(x*y))-2);
end.
Эмм, ну 118+1110=1228
теперь чтобы из десятичной перевести в двоичную надо все делить на 2
1228:2=614 ост0
614:2=307 ост0
307:2=153 ост1
153:2=76 ост1
76:2=38 ост0
38:2=19 ост0
19:2=9 ост1
9:2=4 ост1
4:2=2 ост0
2:2=1 ост0
1:2=0 ост 1
пишем результат с конца, получается 10011001100
Program sr_arifm;
var N,s, sa, cifra: integer;<span>
begin
</span>write(‘N=’);
readln (N);
i:=0;
s:=0;
while N>=0 do
begin
cifra:=n mod 10;
i:=i+1;
if (i = 2) or (i=5) then s:=s+cifra;
n:= n div 10;
end;
sa:=s/2;
writeln (‘sa=’, sa);
end.
Procedure print();
var i,j: char;
begin
for i := 'A' to 'Z' do
for j := 'A' to i do
write(j)
end;
begin
print()
end.