Дано: A¯¯¯∧D.

Заполни таблицу истинности
Добавьте объяснение ребята Даю 10

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.

началоположить топор в воду закипятить посолить добавить крупы добавить масла съесть кашу, а топор оставить, чтобы доварить в следующий раз