Имеется экзаменационная ведомость. абитуриент считается зачисленным на факультет, если сумма его превышает проходной . заполните ячейки е4: е9 с автосуммы, а ячейки f4: f9 с функции если.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

44100*24*60*2=127008000 бит = 15 мбайт

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.

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

i,x: integer;

begin

  read(x);

  randomize;

  for i : = 1 to 10 do begin

      a[i]: =random(4);

      if a[i]=x then writeln('a[',i,']');

  end;

end.