Program Maks;
var a, b, max:integer;
begin
writeln('vvedite chetnoe chislo, a, b');
readln(a);
if a>b then max:=a else max:=b;
writeln(max);
readln;
end.
Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
А) 110000110101=6065
Б) 1010101,110010=125,62
В) 11100001011001=16131
Г) 1000010101=1025
Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>
1) - основание минимальное =6
2) 10011100 - вариант 1
3) 46(10) = 56(8) -> 4 вариант
4) 46(10) = 2Е(16) - 2 вариант
5) 46(10) = 101110(2) - 3 вариант