1. Как записывается полная форма записи оператора выбора на языке Паскаль?
2. Напишите неполную форму условного оператора?
3. Как записывается оператор ввода?
4. Запишите на языке Pascal следующее выражение:
5. Запишите следующее выражение на языке Pascal:
Если переменная A не меньше суммы переменных B+C, то переменной A присвоить
значение этой суммы.
6. Выполнить обратную операцию перевода с языка Паскаль на нормальную
математическую форму:
(3 * x+4 * y)/(2 * sqr (k)-4 * t/y)

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

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

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

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

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.

l*pi*((r+a)^2- (r)^2)*p

p - плотность