Question

РЕбят,где ошибка Pascal program one; var a,n,sum,b:integer; sred:real; begin readln(n); writeln('Цифра') while (n<>0) do begin sred:=0; sum:=0; b:=0; if(n mod 8 =0 )and (n=<300) then begin sum:=n+sum; else writeln('NO'); end; readln(n); if b>100 then writeln('NO') end; sred:=sum/b; writeln('Среднее арихметическое равно ',:,'='sred); end.

Answer 1

1. пропала ; после  writeln('Цифра')

2. меньше или равно пишется <=,  так что условие n=<300 надо переписать n<=300

3. после sum:=n+sum; пропала закрывающая скобка end

4. после else надо бы еще begin

5. предпоследняя строчка тоже мимо.

Вот вся исправленная прога:

program one;

var a,n,sum,b:integer;

sred:real;

begin

readln(n);

writeln('Цифра');

while (n<>0) do

begin

sred:=0;

sum:=0;

b:=0;

if(n mod 8 =0 )and (n<=300) then

begin

sum:=n+sum;

end

else

begin

writeln('NO');

end;

readln(n);

if b>100 then

writeln('NO')

end;

sred:=sum/b;

writeln('Среднее арихметическое равно ',':=',sred);

end.

Answer 2

В данном коде программы на Pascal есть несколько ошибок. Вот исправленный вариант:

pascalCopy code
program one;

var
  a, n, sum, b: integer;
  sred: real;

begin
  readln(n);
  writeln('Цифра');

  sum := 0;
  b := 0;

  while (n <> 0) do
  begin
    if (n mod 8 = 0) and (n <= 300) then
    begin
      sum := n + sum;
      b := b + 1;
    end
    else
    begin
      writeln('NO');
    end;
    readln(n);
    if b > 100 then
    begin
      writeln('NO');
    end;
  end;

  if b <> 0 then
  begin
    sred := sum / b;
    writeln('Среднее арифметическое равно ', sred);
  end
  else
  begin
    writeln('NO');
  end;

end.

Внесенные изменения:

1. Изменена позиция объявления переменных sum и b, чтобы они были видны внутри цикла while.
2. Добавлена пропущенная точка с запятой после строки writeln('Цифра').
3. Изменено место инициализации переменных sum и b перед входом в цикл while, чтобы их значения сбрасывались для каждого нового ввода числа n.
4. Добавлено увеличение значения переменной b при нахождении числа, удовлетворяющего условию внутри цикла while.
5. Исправлено неправильное использование двоеточия в строке writeln('Среднее арихметическое равно ',:,'='sred);.
6. Добавлено условие для проверки значения b, чтобы избежать деления на ноль и выводить 'NO', если b равно нулю.