var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
Не более 16 этажей и не менее 10:
<span>1 бит - половина дома (верхняя или нижняя) </span>
<span>2 бит - половина половины </span>
<span>3 бит - п. п. п. </span>
<span>4 бит - п. п. п. п. </span>
<span>может быть: 4,8,16, 32 и т. п. этажей.. . </span>
<span>при том, что в доме не менее 10 этажей </span>
<span>число 10 в двоичной системе: 1010</span>
В коде семь символов, "мышка" отпадает.Второй и предпоследний символы одинаковые, подходит только слово "монитор".
Ответ 1.
Var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
i:integer;
begin
Write('Set size A :');
Read(size);
for i:= 1 to size do begin
Write('Set A[', i, ']: ');
Read(A[i]);
end;
for i:= 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;
Write('Sum even numbers = ', Even);
Writeln;
Write('Sum notEven numbers = ', notEven);
end.