Вячейку d3 занесена формула: если(а3< 1; «нет»; если(не(а3> 1); 15; «да»)) чему равно значение ячейки d3, если значение ячейки а1 равно 1? выберите один ответ: нет 15 да 1 в ячейку d1 занесенаформула: если(и(а1> -3; a1< 5); 1; 0). чему равно значение ячейки d3, если значение ячейки а1 равно 1? выберите один ответ: 3 -4 5 -3 функция не относится к… выберите один ответ: статистическим функциям финансовым функциям логическим функциям функциям

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.