Задание 3

4G ttl (100)

upcrcnni UU TUJIUUD. U.02.10

Напишите наибольшее целое число х, для котсрord истинно высказывание:

НЕ (X нечётное) и НЕ (X >= 6).

ответ:

Задание 3

Напишите наименьшее целое число х, для которого истинно высказывание:

HE (X <= 7) M (X < 20).

ответ:

Задание 3

Напишите наибольшее целое число х, для которого истинно высказывание:

НЕ (X чётное) И НЕ (X = 7).

ответ:

Задание 10

Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите минимальное и запишите его в ответе в десятичной системе счисле ния. В ответе запишите только число, основание системы мы счисления указывать не нужно.

14в 16, 17в 8, 10011в 2.​

uses graphabc;

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.