Реализовать произвольную форму с обязательными полями. Например, форму регистрации. Через команду alert вывести значения формы. Использовать элементы text, textarea, checkbox, radio, select,
button 60
6.2. Создать психологический тест по какой-нибудь теме. Для этого необходимо подобрать тест с числовыми значениями. При нажатии на
«готово» функция должна проверить, все ли поля заполнены. Если заполнены все поля, то должен быть выдан результат.
Тесты с вопросами вида «Сколько будет 2 умножить на 3?», «Что
больше 5 или 6?» не принимаются.

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.