Як відбувається присвоювання значення величинам в електронних таблицях?

Саша - комбайнер

Петя - садовник

Коля - тракторист

Объяснение:

Петя, ты меня не жди, я должен осмотреть свой комбайн, значит Петя не комбайнер.

Завтра, Коля, не приходи, я буду регулировать работу молотилки у комбайна, значит Коля тоже не комбайнер.

Остается только Саша - комбайнер.

Наблюдал я вчера, Коля, твой осмотр машины и подумал, что держать машину в отличном состоянии не легче, чем вывести новый сорт яблок.

Остались 2 прфессии: садовник и тракторист, если Петя наблюдал за ремонтом машины, значит он садовник, следовательно Коля - тракторист.

Var
  a: integer;  //a - вводимое число
  n, s: integer;  //n- количество введенных чисел, s - сумма этих чисел

begin
  n:= 0;  //обнуляем счетчик
  s:= 0;
  a:= 1;  {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
  while a <> 0 do
  begin
    writeln('Введите целое число');
    readln(a);
    if a <> 0 then  //Чтобы при подсчете среднего арифметического не учитывался 0
    begin
      n:= n + 1;
      s:= s + a;
    end;
  end;
  writeln('Среднее арифметическое введенных чисел:  ', s / n);
end.